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hoe je als blad zowel de Vic-20 gebruikers als degenen, die de toen nieuwe C-64 
hadden aangeschaft, tegelijk kon bedienen. En in die dagen was Commodore heel 
wat agressiever met nieuwe produkten, we hadden toen nog geregeld nieuwe zake¬ 
lijke 8-bitters, zoals de 8296 en de 9000 familie, om nog maar niet te spreken over 
de Vic-10, de C-16 en Plus-4 en later de C-128. Ondertussen zijn we, anno 1990, nog 
steeds in dubio over hoeveel aandacht we moeten besteden aan de Amiga. 

Onze thuisbasis is duidelijk de C-64, maar heel wat Amiga gebruikers vinden dat ze 
ook in Commodore-Info thuis horen. Ook Commodore zelf wil graag dat we wat meer 
aan de Amiga familie doen, maar aan de andere kant zijn er ook aparte Amiga bla¬ 
den. De meest professionele daarvan, de Nederlandse Amiga (WereldjWorld uitgave, 
is overigens na een paar nummers al weer gesneuveld. En daar zitten we dan weer. 
Hoe beïnvloedt dat Commodore Info? We kiezen voor de gulden middenweg, dit 
nummer heeft een tamelijk zwaar Amiga accent en we zuilen zien, hoe de lezers dat 
waarderen. Mogelijk zetten we die trend voort, dat hangt ook af van het commerciële 
draagvlak. In ieder geval is er dit voorjaar interessant Amiga nieuws, een nieuw 
model met CD-ROM gaat deze machine vast extra interessant maken. 

Luc Sala 
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Graphics op de 64 

Deel 8: animatie 


N a alle theoretische verhande¬ 
lingen over de grafische mo¬ 
gelijkheden op de Commodore 
64, zijn Michel de Boer en Hylke 
Sprangers aangekomen bij het 
meest fascinerende facet van 
graphics.... ANIMATIE. In deze af¬ 
levering zullen de sprites rondhol¬ 
len, de karakters rondtollen en de 
schermen smooth scrollen. Kor¬ 
tom, deze aflevering bevat alle 
basis ingrediënten om flitsende 
demo’s en spetterende video ga¬ 
mes te bouwen. 

Het menselijk oog heeft een beperkte ver¬ 
werkingssnelheid. Door snel een serie 
beelden, die een klein beetje van elkaar 
verschillen, achter elkaar te projecteren, 
neemt het oog niet elk beeldje als een af¬ 
zonderlijk beeld waar, maar ontstaat de il¬ 
lusie van beweging. In deze aflevering 
zullen we uitleggen hoe met de verschil¬ 
lende grafische objecten deze illusie ver¬ 
kregen kan worden. Daarbij zullen de 
volgende onderwerpen de revue passeren. 
Het eerste onderwerp is smooth scrolling. 
Daarna zullen we het hebben over het be¬ 
wegen van sprites en animatie van karak¬ 
ters. 

Scrolling 

In de vorige aflevering hebben we een be¬ 
gin gemaakt met het onderwerp scrolling. 
Dit is een vorm van animatie waarbij het 
hele scherm (of een aantal regels) in hori¬ 
zontale of vertikale richting wordt ver¬ 
schoven. We hebben toen twee soorten 
scrolling onderscheiden: coarse scrolling 
en smooth scrolling. 

Bij coarse scrolling wordt het scherm 
steeds een heel karakter opgeschoven. De 
animatie die hierdoor ontstaat is vrij grof. 
Coarse scrolling hebben we in de vorige 
aflevering uitgebreid behandeld. 




Bij de tweede soort scrolling, smooth 
scrolling, wordt het scherm steeds een 
pixel in plaats van een heel karakter ver¬ 
schoven. Hierdoor kan een mooie vloei¬ 
ende beweging van het scherm gecreeerd 
worden. 


We zullen nog even kort samenvatten wat 
we de vorige keer over smooth scrolling 
hebben verteld. In figuur 1 staan alle 
adressen die nodig zijn voor smooth 
scrolling. Bit 7 van adres 53265 en adres 
53266 worden nog besproken. Voor zo¬ 
wel vertikale als horizontale scrolling zijn 
drie bits beschikbaar. Als in deze drie bits 
van 0 tot 7 wordt geteld, wordt afhanke¬ 
lijk van het gebruikte adres omlaag of 
naar rechts gescrolld. Als van 7 tot 0 
wordt teruggeteld, wordt er omhoog of 
naar links gescrolld. Nadat het scherm op 
die manier 7 pixels verschoven is, moet 
met coarse scrolling het scherm een ka¬ 
rakter opgeschoven worden en weer op¬ 
nieuw met het tellen begonnen worden. 
Om er voor te zorgen dat de zijkant van 
het scherm niet trilt tijdens het scrollen, 
moet de border verbreed worden. 

Als laatste voorbeeld hebben we een pro¬ 
gramma laten zien dat een heel scherm, 
gevuld met gelijke karakters, smooth 


Figuur 1. 


Adressen 

voor smooth scrolling 

Adres 

Functie 

53270 


bit 0-2 

horizontaal scrollen 

bit 3 

1 - normale zijborder 

0 -- brede zijborder 

53265 


bit 0-2 

vertikaal scrollen 

bit 3 

1 = normale boven- en 
onderborder 

0 = brede boven- en 
onderborder 

bit 7 

extra bit voor raster- 
lijn nummer 

53266 

raster1ijn nummer 


6 


Commodore Info 2190 







C-64 


scrollt. In dat programma zat nog een on¬ 
volkomenheid. Het scrollen verliep niet 
helemaal soepel, maar golfde een beetje. 
Om het golven te verhelpen moeten we 
weten hoe het beeldscherm wordt opge¬ 
bouwd. 

Rasterlijnen 

Het beeldscherm is verdeeld in 312 hori¬ 
zontale lijnen. Deze lijnen worden raster¬ 
lijnen genoemd. Een rasterlijn heeft de 
dikte van een pixel. De rasterlijnen zijn 
genummerd van 0 tot 311. Lijn 0 bevindt 
zich boven aan het scherm. Het scherm 
wordt 50 keer per seconde van boven naar 
beneden opgebouwd. Elke rasterlijn 
wordt daarbij van links naar rechts opge¬ 
bouwd. Rasterlijnen 50-249 komen ove¬ 
reen met het gedeelte binnen de borders. 
Als de opbouw nu net bij een van deze 
lijnen (bijvoorbeeld lijn 100) is en we 
scrollen het scherm, dan zal het scherm 
vanaf lijn 100 direct verschoven worden, 
terwijl lijnen 50-99 pas in de volgende 
opbouw cyclus worden verschoven. Hier¬ 
door ontstaat de golving. 

Om de golving te voorkomen, moeten we 
er dus voor zorgen dat we het scherm pas 
scrollen, als de opbouw voorbij lijn 249 


is, zodat de verschuiving van het scherm 
pas in de volgende opbouw cyclus zicht¬ 
baar wordt. In adres 53266 wordt bijge¬ 
houden bij welke rasterlijn de opbouw is. 
In dit adres kunnen alleen getallen tussen 
0 en 255 staan. Om rasterlijnen groter dan 
255 aan te geven wordt bit 7 van adres 

53265 gebruikt. Als dit bit uit staat, is de 
waarde in adres 53266 het nummer van 
de rasterlijn. Als dit bit aan staat, dan 
moet er 256 bij de waarde van adres 

53266 worden opgeteld. Als er in 53266 
bijvoorbeeld 10 staat en bit 7 van adres 
53265 staat aan, dan is de opbouw bij ras¬ 
terlijn 266. Door deze adressen te testen, 
kunnen we bij de juiste rasterlijn begin¬ 
nen met scrollen. We kunnen bijvoor¬ 
beeld steeds de waarde van adres 53266 
uitlezen en kijken of deze waarde gelijk 
aan 249 is. Als dit niet het geval is, herha¬ 
len we de handeling, anders scrollen we 
het scherm. We hoeven in dit geval geen 
rekening te houden met bit 7 in adres 
53265, omdat deze nooit aan kan staan als 
adres 53266 de waarde 249 bevat. 

Alle voorbeeldprogramma’s uit de vorige 
aflevering hadden steeds een beperking, 
omdat ze in Basic waren geschreven; ze 
scrollden maar een regel of een heel 


scherm met dezelfde karakters. We geven 
daarom een assembly programma dat een 
heel scherm met verschillende karakters 
naar links scrollt. Op elke regel van het 
scherm scrollt een lichtkrant. 

In machinetaal is het ook niet zo makke¬ 
lijk om de juiste snelheid te bereiken. Er 
moet namelijk voor gezorgd worden dat 
de coarse scrolling minstens net zo snel is 
als een scherm opbouw cylus; dus binnen 
1/50 seconde. Als dit niet het geval is dan 
haalt het opbouwen het scrollen in en 
wordt het onderste gedeelte van het 
scherm al afgebeeld voordat het naar 
links geschoven is. Om de listing niet al 
te lang en onoverzichtelijk te maken, heb¬ 
ben we voor de coarse scrolling een ande¬ 
re methode gebruikt, dan we beschreven 
hebben. Deze methode schuift niet steeds 
alle karakters een plaats naar links, maar 
werkt als volgt. Eerst worden de karakters 
0 tot 39 van de lichtkrant op het scherm 
gezet. Vervolgens de karakters 1-40, dan 
2-41 enz. Als we aan het einde van de 
lichtkrant zijn, dan beginnen we weer met 
karakters 0-40. Door er nu voor te zorgen 
dat de laatste 39 karakters gelijk zijn aan 
de eerste 39, ontstaat hetzelfde resultaat 
als bij de beschreven methode. We schui- 


;******************* 

wl lda 53266 

cl lda ($fd),y 

;* SMOOTH SCOLLING * 

cmp #250 

c3 sta $0400,y 

• ******************* 

beq wl 

iny 

; 

jmp wait 

cpy #40 

; *** initialisatie 

;*** schuif scherm terug 

bne cl 

sei 

;*** naar rechts 

ldy #0 

lda #7 

w2 lda #7 

clc 

sta scroll 

sta scroll 

lda c3+l 

; *** $fd/fe bevat het 

ora 53270 

adc #40 

beginadres van 

sta 53270 

sta c3+l 

; *★* het window dat over de 

;*** coarse scrolling naar 

bcc c2 

tekst 

links 

inc c3+2 

;*** wordt geschoven 

jsr coarse 

c2 dex 

lda #<text 

;*** schuif window naar rechts 

bne cl 

sta $fd 

inc $fd 

rts 

lda #>text 

bne test 

; *** teller voor bits 0-2 

sta $fe 

inc $fe 

;*** van adres 53270 

;*** zet scherm op 38 kolommen 

;*** test of einde van 

scroll .byt 0 

lda 53270 

•*** lichtkrant bereikt is 

;*** schermcodes 

and #240 

test ldy #39 

text . byt 

ora #7 

lda ($fd) , y 

32,32,32,32,32,32,32,32 

sta 53270 

cmp #$ff 

.byt 32,32,32,32,32,32,32,32 

;*** wacht op juiste rasterlijn 

bne wait 

.byt 31,32,32,32,32,32,32,32 

wait lda 53266 

lda #<text 

.byt 32,32,32,32,32,32,32,32 

cmp #250 

sta $fd 

.byt 32,32,32,32,32,32,32,32 

bne wait 

lda #>text 

.byt 19,13,15,15,20,8,32 

;*** scroll scherm 

sta $fe 

.byt 19,3,18,15,12,12,9,14,7 

lda scroll 

jmp wait 

.byt 32,32,32,32,32,32,32,32 

beq w2 

; *** schuif scherm een karakter 

•byt 32,32,32,32,32,32,32,32 

dec scroll 

;*** naar links 

.byt 31,32,32,32,32,32,32,32 

lda 53270 

coarse lda #<1024 

.byt 32,32,32,32,32,32,32,32 

and #248 

sta c3+l 

.byt 32,32,32,32,32,32,32 

ora scroll 
sta 53270 

;*** wacht tot opbouw voorbij 
;*** rasterlijn 250 is 

lda #>1024 
sta c3+2 
ldx #25 
ldy #0 

.byt 255 


Listing Smooth scrolling 
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48 karakters 
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i ven, lijkt het of de tekst naar links over het 
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Figuur 2, 


ven als het ware een window van 40 ka¬ 
rakters breed naar rechts over de tekst. 
Alle karakters binnen dit window zijn 
zichtbaar op het scherm. Figuur 2 illus¬ 
treert de methode. 

U kunt deze listing intikken met behulp 
van een assembler; bijvoorbeeld met 
PROFI of PAL assembler. 

Sprite animatie 

Sprites hebben op het gebied van anima¬ 
tie het meest te bieden. In tegenstelling tot 
een karakter, kan een sprite op elke wille¬ 
keurige positie op het scherm worden ge¬ 
plaatst. Om de sprite vervolgens op een 
nieuwe positie neer te zetten, hoeft deze 
niet eerst uitgewist te worden op zijn 
oude positie. Het enige dat gedaan hoeft 
te worden, is het doorgeven van de nieu¬ 
we positie aan de video chip. De video 
chip zorgt er dan voor dat de sprite van de 
oude positie verdwijnt en terecht komt op 
de nieuwe positie, zonder dat daarbij an¬ 
dere grafische objecten, die op het scherm 
staan, aangetast worden. De sprites over¬ 
lappen die objecten, of worden door die 
objecten overlapt. Hierdoor zijn sprites 
uitermate geschikt voor het bewegen van 
figuurtjes over een achtergrond van ka¬ 
rakters. 

Bewegen van sprites 

Het bewegen van sprites is een eenvoudi¬ 
ge zaak. Het enige dat gedaan hoeft te 
worden is het veranderen van de x- en y- 
coördinaat van de sprite. Het volgende 
programma laat sprite 0 in een cirkel over 
het scherm bewegen. Om de listing niet 
onnodig lang te maken met bytewaarden 
voor de vorm van de sprite, hebben we als 
vorm gewoon een rechthoek genomen. 

1 rem sprite beweging 
5 dim x(300),y(300) 

10 for i=832 to 894:poke i,255:next 
20 poke 53280, 0:poke 53281,0 
30 for i=0 to 2*{pi) step {pi}/60 
40 x(a)=50*cos(i)+124 
50 y(a)=50*sin(i)+150 
60 a=a+l 
7 0 next 


80 poke 2040,13:poke 53269,1 
90 for i=0 to a-1 

100 poke 53248,x(i):poke 53249,y(i) 

110 next 
120 goto 90 

Regels 30-70 berekenen alle coördinaten 
van de cirkelbaan waarlangs de sprite 
zich beweegt. Deze coördinaten worden 
opgeslagen in twee arrays. Regels 90-120 
poken deze coördinaten achtereenvolgens 
in de coördinaat registers voor sprite 0. 

In plaats van eerst alle coördinaten bere¬ 
kenen en opslaan, hadden we de coördi¬ 
naten ook direct in de coördinaat registers 
kunnen poken. Hierdoor zou een hoop ge¬ 
heugenruimte bespaart worden en hadden 
we niet zo lang hoeven te wachten tot de 
beweging begon. Een heel groot nadeel 
van die methode is dat de beweging zeer 
traag wordt door de ingewikkelde bereke¬ 
ning. Daarom hebben we ervoor gekozen 
om eerst alle coördinaten te berekenen. 
Als de berekening heel eenvoudig is, dan 
werkt de andere methode meestal wel 
snel genoeg. 

Door de afstand tussen twee opvolgende 
coördinaten te vergroten, kan een hogere 
snelheid gehaald worden. In het voor¬ 
beeld programma moet u dan de stap- 
grootte in regel 30 vergroten. Dit gaat 
echter wel ten koste van de soepelheid 
van de beweging. 

In het voorbeeld programma hebben we 
de x-coördinaat steeds in adres 53248 ge- 
poked. Dit gaat goed, omdat deze coördi¬ 
naat hier altijd kleiner dan 255 is. Als de 
x-coördinaat echter groter dan 255 kan 
zijn, moet u ervoor zorgen dat het MSB 
bit in 53264 de juiste waarde heeft. 

Animeren van sprites 

Om de beweging van een sprite een beetje 
realistisch te maken, is het vaak nodig 
om, naast het veranderen van de positie , 
ook de vorm van de sprite te veranderen. 
Een mannetje dat voor zijn leven over het 
scherm rent, ziet er immers niet zo realis¬ 
tisch uit als hij daarbij zijn benen niet be¬ 
weegt. Om het rennen realistisch te ma¬ 
ken, moeten we de stand van de benen 


van het mannetje steeds een beetje veran¬ 
deren. We zouden dit kunnen doen door 
steeds nieuwe bytewaarden in de sprite te 
poken. Dit vreet echter nogal wat tijd. De 
spritepointers maken het mogelijk om het 
animeren van een sprite veel sneller te 
maken. We moeten daarvoor eerst alle 
standen van de sprite in het geheugen op¬ 
slaan. Het effect van animatie kan nu ver¬ 
kregen worden door de sprite pointer 
steeds naar de volgende stand van de spri¬ 
te te laten wijzen. 

Het volgende programma illustreert de 
methode. Het laat een wiel over het 
scherm rollen. 

5 rem sprite animatie 
10 for i=832 to 1023 
20 read arpoke i,a:next 
30 poke 53280, 0:poke 53281,0 
40 print"{SHIFT-CLR}" 

50 poke 53269,lrpoke 2040,13 

60 poke 53249,150:x=0 

70 for i=13 to 15 

80 poke 2040, i 

90 for j=0 to 1 

100 x=x+l:poke 53248,x and 255 

110 poke 53264, (x and 256)/256 

115 if x=350 then x=0 

120 next j,i 

130 goto 70 

500 rem stand 1 

510 data 0,124,0,1,255,0,7,147 

520 data 192,14,16,224,28,16,112,26 

530 data 16,176,49,17,24,48,146,24 

540 data 96,84,12,96,56,12,127,255 

550 data 252,96,56,12,96,84,12,48 

560 data 146,24,49,17,24,26,16,176 

570 data 28,16,112,14,16,224,7,147 

580 data 192,1,255,0,0,124,0,0 

590 rem stand 2 

600 data 0,124,0,1,255,0,7,131 

610 data 192,15,4,224,28,132,112,24 

620 data 132,48,48,72,56,48,72,216 

630 data 110,51,12,97,148,12,96,124 

640 data 12,96,83,12,97,152,236,54 

650 data 36,24,56,36,24,24,66,48 

660 data 28,66,112,14,65,224,7,131 

670 data 192,1,255,0,0,124,0,0 

680 rem stand 3 

690 data 0,124,0,1,255,0,7,131 

700 data 192,14,65,224,28,66,112,24 

710 data 66,48,56,36,24,54,40,24 

720 data 97,40,236,96,215,12,96,56 

730 data 12,97,214,12,110,41,12,48 

740 data 40,216,48,72,56,24,132,48 

750 data 28,132,112,15,4,224,7,131 

760 data 192,1,255,0,0,124,0,0 

In regel 80 wordt de spritepointer steeds 
op de volgende stand van het wiel gezet. 
Regels 100-110 bewegen de sprite naar 
rechts over het scherm. De berekening 
voor deze beweging is zo simpel dat deze 
real time kan worden uitgevoerd. We 
hoeven niet een heel array met waarden te 
vullen, zoals bij het vorige programma. 
De rest van het programma spreekt voor 
zich. 
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Karakter animatie 
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Figuur 3 


Nadeel van Basic 

Basic is eigenlijk niet zo geschikt voor 
het programmeren van animatie. Het is 
erg traag en als u de voorbeeld program¬ 
ma’s uitgeprobeerd hebt, zult u wel ge¬ 
merkt hebben dat de sprites af en toe 
knipperen of golven. Om dit te voorko¬ 
men moet er net als bij scrolling rekening 
worden gehouden met de schermopbouw. 
Als u ervoor zorgt dat u pas iets op het 
scherm verandert, als de rasterlijn buiten 
het scherm is, dan zal de animatie soepel 
verlopen. Dit kan uiteraard alleen vanuit 
machinetaal bewerkstelligd worden. Dc 
reden dat we de programma’s toch in Ba¬ 
sic hebben geschreven is, dat Basic de 
animatie technieken beter illustreert. Met 
enige kennis van machinetaal moet u in 
staat zijn om deze programma’s in machi¬ 
netaal te herschrijven. 

Tip voor 3D animatie 

Door handig gebruik te maken van over- 
lappingsprioriteiten, kunt u mooie 3D 
animaties maken. Stel u heeft een sprite 
van een hond en een sprite van boom en 
u wilt de hond om de boom laten hollen. 
De hond moet dus eerst voor de boom en 
daarna achter de boom langs hollen. U zet 
dan eerst de hond in sprite 0 en de boom 
in sprite 1. De hond kan nu voor de boom 
langs hollen, omdat sprite 0 een hogere 
prioriteit heeft dan sprite 1. Daarna zet u 
de hond in sprite 1 en de boom in sprite 0 
door de waarde van de spritepointers van 
beide sprites te verwisselen. Daarbij moet 
u ook de inhoud van alle andere adressen 
die bij de sprites horen verwisselen, zoals 
de coördinaten en de kleur. Als u dit alle¬ 
maal doet terwijl de rasterlijn buiten het 
scherm is, zal er op het scherm geen ver¬ 
andering te zien zijn. Maar omdat de hond 
nu sprite 1 is en de boom sprite 0, kan de 



hond nu achter de boom langs hollen en is 
het 3D effect bereikt. 

Door multicolor karakters en sprites te 
gebruiken, kunnen ook mooie 3D effec¬ 
ten gemaakt worden. Bij multicolor ka¬ 
rakters wordt de kleur met bitcombinatie 
01 namelijk altijd door sprites overlapt. 
De andere kleuren worden afhankelijk 
van de overlappingsprioriteit overlapt. 
Als we sprites nu een lagere prioriteit dan 
karakters geven, dan kan een sprite voor 
een figuur met kleur 01 bewegen en ach¬ 
ter een figuur in de andere kleuren. Als u 
bijvoorbeeld een boom in kleur 01 maakt 
en voor deze boom een hekje in de andere 
kleuren plaatst, dan kan de hond uit het 
voorgaande voorbeeld tussen de boom en 
het hekje lopen. 

Animatie van karakters 

In de vorige aflevering hebben we het 
over coarse scrolling gehad. Dit is een 
manier van animatie van karakters. Het 
scherm wordt dan verschoven over de 
breedte of lengte van een karakter. Het 
verschuiven van een scherm met karak¬ 
ters wordt verkregen door alle karakters 
afzonderlijk op te schuiven. We kunnen 
bijvoorbeeld de karakters op de bovenste 
regel van het scherm telkens een plaatsje 
naar links opschuiven. Het effect van een 
lichtkrant wordt dan verkregen, hetzij wel 
zeer schokkerig. 

Door gewoon karakters over het scherm 
te laten bewegen, kan eenvoudige anima¬ 
tie van karakters worden verkregen. We 
geven een voorbeeld. We zetten ergens 
op het scherm een balletje neer. Door dit 
balletje steeds eerst uit te wissen (een spa¬ 
tie over het balletje heen poken), en ver¬ 
volgens op een aangrenzende scherm- 
plaats neer te zetten, onstaat simpele ani¬ 
matie. Van deze simpele animatie geven 
we geen voorbeeld meer, zie hiervoor 


eventueel de vorige aflevering van deze 
cursus. 

Het nadeel van de hiervoor beschreven 
animatietechniek voor karakters, is dat 
het hele groffe animatie is. Het bewegen 
van een figuur, tekst of iets dergelijks ge¬ 
beurt immers steeds met acht pixels tege¬ 
lijk. Wat we dus willen is animatie die 
vloeiend verloopt. De figuren op het 
scherm moeten niet per 8, maar per 1 
pixel tegelijk verschoven worden. In dat 
geval komen we al snel uit bij smooth 
scrolling, want bij smooth scrolling wordt 
het scherm slechts een pixel per keer ver¬ 
schoven. We kunnen echter een soortge¬ 
lijk effect ook op andere manieren ver¬ 
krijgen. 

De eerste manier is om eerst een aantal 
karakters van te voren te ontwerpen. Door 
nu de verschillende karakters telkens over 
elkaar heen te poken, kan animatie wor¬ 
den verkregen, we geven een voorbeeld, 
om dit wat duidelijker te maken. In figuur 
3 staan acht karakters getekend. Het eer¬ 
ste karakter is een vierkant met op de vier 
hoeken schuine streepjes. Het tweede ka¬ 
rakters laat hetzelfde motief zien als het 
eerste karakter, met het verschil dat het 
figuurtje een pixel naar linksonder is ver¬ 
schoven. In het derde karakter is het fi¬ 
guurtje weer een stapje naar linksonder 
verschoven. Dit gaat zo door tot het acht¬ 
ste karakter. Als het achtste karakter weer 
een pixel naar linksonder wordt verscho¬ 
ven, wordt weer het eerste karakter ver¬ 
kregen. 

Als acht karakters worden herdefinieerd 
tot deze acht zelfgemaakte karakters, 
kunnen we vervolgens betrekkelijk sim¬ 
pel animatie verkrijgen. Want we kunnen 
nu deze acht karakters achterelkaar op 
een bepaalde schermplaats zetten. Het 
volgende programma laat hier een voor¬ 
beeld van zien: 
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10 rem karakter animatie 
20 print"{clr/home}” 

30 poke 53272, peek (53272) or 14 

40 for x=0 to 63:read a 

50 poke 14336+x,a:next 

60 for x=0 to 7 

70 poke 1024, x 

80 for y=0 to 10:next 

90 next: goto 60 

100 data 129,66,60,36,36,60,66,129 
110 data 3,3,132,120,72,72,120,132 
120 data 9,6,6,9,240,144,144,240 
130 data 225,18,12,12,18,225,33,33 
140 data 66,195,36,24,24,36,195,66 
150 data 132,132,135,72,48,48,72,135 
160 data 15,9,9,15,144,96,96,144 
170 data 33,30,18,18,30,33,192,192 

In regel 30 wordt gedefinieerd dat de ka¬ 
rakterset op adres 14336 begint. In de re¬ 
gels 40 en 50 worden de acht zelfgemaak¬ 


te karakters op de eerste 8 plaatsen in de 
karakterset gezet. Vervolgens worden 
deze acht karakters om de beurt linksbo¬ 
ven op het scherm gepoked. 

Het nadeel van deze methode is dat het 
allemaal zeer traag gaat. Ook kunnen er 
op deze manier maar zeer kleine figuur¬ 
tjes geanimeerd worden. Als we bijvoor¬ 
beeld een heel scherm vol hebben met 
karakters, kunnen we die in basic niet al¬ 
lemaal tegelijk veranderen. Dit zou im¬ 
mers veel te langzaam gaan. In machine¬ 
taal zou dit eventueel nog wel lukken 
(hoewel wel schokkerig), maar er is een 
veel eenvoudigere manier. We zullen 
deze manier aan de hand van een voor¬ 
beeld uitleggen. Eerst poken we het hele 
scherm vol met schermcode 0. Als we 
niets aan de karakterset hadden gedaan. 


zou het hele scherm nu vol staan met at- 
signs. We definiëren nu dat de karakterset 
begint op adres 14336, net zoals in het vo¬ 
rige programma. We kunnen de karakter¬ 
set ook wel ergens anders in het geheugen 
laten beginnen, maar dat is nu niet ter 
zake doend. Zoals al gezegd werken we 
met het at-sign, die schermcode 0 heeft. 
Dit karakter beslaat dus de eerste acht by¬ 
tes van de karakterset, beginnend vanaf 
adres 14336. Nu gaan we echter het 
schermgeheugen niet steeds veranderen 
(dit deden we met adres 1024 in het vori¬ 
ge programma), maar we gaan telkens het 
karaktergeheugen veranderen. We poken 
de acht karakters die in figuur 3 staan, 
steeds om de beurt in karakter 0, het at- 
sign. We moeten dus steeds acht pokes 
uitvoeren, dan een tijdje wachten, en dan 


Rectificatie graphics 


I n de vorige twee nummers (NO. 8, dec ’89/jan ’90 
en NO. 1, feb/mrt ’90) zijn er helaas een paar zet¬ 
fouten in de artikelen "Graphics op de 64" en "Tips & 
Trucs 64" geslopen. Deze fouten betroffen het weg¬ 
vallen van de kleiner en groter dan tekens. Tevens 
waren de illustraties behorende bij "Graphics op de 
64" niet afgedrukt. De redactie biedt hierbij haar 
excuses aan aan zowel lezers als schrijvers. We ho¬ 
pen het in dit nummer wel goed te doen. 

In deel 6 van "Graphics op de 64" (Computer Kunst) waren een 
aantal kleiner en groter dan tekens verdwenen. In de een na 
laatste alinea van de paragraaf "lissajous figuren" en in de ali¬ 
nea onder de listing "sinuskrommen" stonden een aantal regels 
die de gebruiker in acht moest nemen bij het invoeren van va¬ 
riabelen. In deze regels zijn alle kleiner dan tekens weggeval¬ 
len. Verder werkte de listing "draaiende lijnen" niet goed. 
Daarom plaatsen we hieronder de listing nog een keer: 

5 rem draaiende lijnen 

10 input"geef lengte lijnstuk";le 

20 inpuf'geef draaihoek";dh 

30 inpuf'geef toename lijnstuk";tl 

70 ho=90:hires 0,1 

100 t=ho*{pi}/180 

110 x»int(le*sin(t)+160) 

120 y=int(le*cos(t)+100) 

130 if x<0 or x>319 or y<0 or y>199 then 190 

140 if ho=90 then xl=x:yl=y 

150 line xl,yl,x,y,1 

160 xl=x:yl=y 

170 ho=ho+dh:le=le+tl 

180 goto 100 

190 goto 190 

In beide afleveringen zijn de machtverheffingstekens veran¬ 
derd in tildes (slangetjes). Dit moeten dus vertikale pijlen zijn. 

Bank Switching 

In het vorige artikel in de serie "Graphics op de 64" hebben we 
het gehad over bank switching. Per abuis zijn toen de illustra¬ 
ties, behorende bij dit artikel, niet geplaatst. Deze drie illustra¬ 
ties plaatsen we derhalve deze aflevering. Omdat bank swit¬ 


ching een pittig onderwerp is, zullen we hieronder nog een sa¬ 
menvatting geven. 

Video banks 

De grafische chip van de Commodore, de VIC, heeft 14 adres¬ 
lijnen, en kan dus maar 16 K geheugen tegelijk zien (adresse¬ 
ren). Daarom zijn de 65536 bytes die de Commodore heeft, 
opgesplitst in 4 stukken van elk 16 K. Deze 4 geheugensecties 
worden ook wel video banks genoemd. De VIC kan slechts uit 
een bank tegelijk gegevens halen. In figuur 1 staat de geheu- 
genopdeling in 4 banks. Standaard staat de computer in bank 0. 
Dit betekent dat alle grafische objecten waarmee u werkt, zich 
in bank 0 bevinden. 


Geheugenverdeling in banks 


Bank 

Bits 0-1 
56576 

Gebied 

A 

0 

11 

0-16383 

3 

1 

10 

16384-32767 

2 

2 

01 

32768-49151 

1 

3 

00 

49152-65535 

0 

Standaard : bank 0 


Bank kiezen: 



POKE 56578, PEEK(56578) 

OR 3 

POKE 56576, PEEK(56576) 




AND 252 OR i 

\ 



Wisselen van bank 

Het wisselen van de ene bank naar de andere wordt bank swit¬ 
ching genoemd. Dit kan gebeuren door de volgende twee po¬ 
kes: 
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de volgende acht bytes in karakter 0 po¬ 
ken. Het resultaat zal zijn dat alle karak¬ 
ters op het scherm constant veranderen. 
Dit veroorzaakt een scrollende achter¬ 
grond. Hier volgt het programma in as- 
sembly, dat het bovenstaande voorbeeld 
implementeert. 


Labels Mnemonics Commentaar 

lda, #$00 /lobyte scherm, 
sta $fb 

lda #$04 ;hibyte scherm, 
sta $£e 

lusl ldy #$00 ;zet scherm vol 
lda #$00 /met nullen. 
Ius2 sta ($fb),y 
iny 

cpy #$00 


bne lus2 
inc $£c 
lda $fc 
emp #$08 
bne lusl 

lda #$1£ ;zet karakterset 
sta $d018;op adres 14336. 
Ius3 lda #<code 

sta $fb 
lda #>code 
sta $fc 
lus4 ldy #$00 

lus5 lda ($fb),y ; zet 8 bytes 

sta $3800,y ; in karakter 

0 . 

iny 

cpy #$08 
bne lus5 
ldx #$00 

lus6 jsr $eeb3 /vertraag 1 ms. 

inx 


cpx #$18 
bne lus€ 

lus7 lda $d012 ;houd rekening met 
emp #$ff ;rasteropbouw. 
bne lus7 

clc /volgende 

karakter. 

lda $fb 
adc #$08 
sta $fb 
lda $fc 
adc #$00 
sta $£c 
lda $fb 

emp #<code+64 /laatste 
beq lus3 /karakter gehad? 
jmp lus4 /weer opnieuw. 

code 

.byt $81,$42,$3c,$24,$24,$3c,$42, $81 
.byt $03,$03,$84,$78,$48,$48, $78, $84 
.byt $09,$06.$06,$09,$f0,$90,$90, $f0 


POKE 56578, PEEK(56578) OR 3 

POKE 56576, PEEK(56576) AND 252 OR A 

Voor de variabele A moet u de waarde invullen die in figuur 1 
staat vermeld. Voor bank 0 heeft A bijvoorbeeld de waarde 3. 
Als een bank wordt uitgekozen, betekent dit, dat alle grafische 
objecten (scherm, sprites, karakters etc.) in deze bank staan of 
komen te staan. 

Het karakter geheugen 

De Commodore 64 kent 256 verschillende karakters. Omdat 
elk karakter uit 8 bytes is opgebouwd, zijn er 8*256 = 2048 
bytes (2 K) nodig om een karakterset in op te slaan. In een bank 
passen er zo 16/2 = 8 verschillende karaktersets. In figuur 2 
staan de 8 gebieden voor bank 0. Voor de andere drie banks 
moet u steeds het beginadres van de bank optellen bij de gebie- 


Karakterset gebieden in bank 0 


Nummer 

Bits 1-3 
53272 

Gebied 

B 

0 

000 

0-2047 

0 

1 

001 

2048-4095 

2 

2 

OIO 

4096-6143 

4 

3 

011 

6144-8191 

6 

4 

100 

8192-10239 

8 

5 

101 

10240-12287 

10 

6 

110 

12288-14335 

12 

7 

111 

14336-16383 

14 

Standaard : gebied 2 

Gebied kiesen: 


POKE 53272, 

PEEK(53272) 
AND 240 OR B 


KarakterROM: 4096-8191 en 
36864-40959 



Figuur 2. 


den die in figuur 2 staan. Om een gebied uit te kiezen heeft u 
de volgende poke nodig: 

POKE 53272, PEEK(53272) AND 240 OR B. 

De verschillende waarden voor de variabele B staan in figuur 
2. De twee standaard karaktersets (lower- en upper-case) be¬ 
ginnen respectievelijk vanaf adres 53248 en adres 55296. Om 
deze te bereiken moet eerst het videogeheugen uitgeschakeld 
worden met: 

POKE 56334, PEEK(56334) AND 254 
POKE 1, PEEK(1) AND 251 

Het videogeheugen kan weer worden aangeschakeld door: 

POKE 1, PEEK(1) OR 4 

POKE 56334,PEEK(56334) OR 1 

Zoals gezegd staat de Commodore standaard in bank 0. Toch 
beginnen de standaard karaktersets vanaf adres 53248. De VIC 
denkt echter dat ze vanaf adres 4096 staan. Daarom is het ge¬ 
bied van adres 4096 tot 8191 karakterROM. Dit betekent dat u 
in dit gebied geen grafische objecten kan opslaan. Het gebied 
van adres 36864 tot 40959 in bank 2 beschouwt de VIC ook als 
ROM. In de banks 1 en 2 bevindt zich geen karakterROM. Dit 
betekent, dat u in deze twee banks geen beschikking heeft over 
een standaard karakterset: u moet er zelf een definiëren. 

Het schermgeheugen 

U kunt zelf bepalen waar het schermgeheugen zich bevindt in 
de bank. Standaard staat het scherm van adres 1024 tot 2023 in 
bank 0. Het scherm kan op 16 verschillende plaatsen in een 
bank worden neergezet. In figuur 3 staan de 16 plaatsen voor 
bank 0. In de overige drie banks geldt een soortgelijke opdeling 
in 16 gebieden. U kunt het scherm verplaatsen met de volgen¬ 
de twee pokes: 

POKE 53272, PEEK(53272) AND 15 OR C 
POKE 648, (SA)/256 

De variabele C kunt u opzoeken in figuur 3. De variabele SA 
staat voor schermadres. Standaard staat het scherm op adres 
1024 tot 2023. Het schermadres (SA) is dan 1024. 

Voorbeeld 

U wilt bijvoorbeeld werken in bank 2. U voert dan de volgende 
twee regels in: 
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.byt $el,$12,$0c,$0c,$12,$el, $21, $21 
.byt $42,$c3,$24,$18,$18,$24,$c3, $42 
• byt $84,$84,$87,$48,$30,$30,$4 8, $87 
.byt $0f,$09,$09,$0f,$90,$60,$60, $90 
.byt $21,$1©,$12,$12,$le,$21,$c0, $c0 

We hebben in het bovenstaande program¬ 
ma rekening gehouden met de rasterop- 
bouw, om de animatie soepel te laten ver¬ 
lopen. In een videogame of intro laat men 
een dergelijke routine meestal in de inter- 
rupt lopen, zodat er een scrollende achter¬ 
grond onstaat. 

Tot slot geven we bovenstaand assembly 
programma in Basic, voor degene die niet 
over een assembler beschikken. 

5 rem scrollende achtergrond 
10 for i= 49152 to 49298 
20 read a:poke i,a:s=s+a:next 
30 if s=17842 then sys 49152 


40 print "fout in data" 

1000 data 169,0,133,251,169,4,133,252 
1010 data 160,0,169,0,145,251,200,192 
1020 data 

0,208,249,230,252,165,252,201 
1030 data 8,208,237,169,31,141,24,208 
1040 data 

169,83,133,251,169,192, 133,252 
1050 data 160,0,177,251,153,0,56, 200 
1060 data 192,8,208,246,162,0,32,179 
1070 data 

238,232,224,22,208,248,173,18 
1080 data 

208,201,255,208,249,24,165, 251 
1090 data 

105,8,133,251,201,147,240,208 
1100 data 76,40,192,129,66,60,36,36 
1110 data 60,66,129,3,3,132,120,72 
1120 data 72,120,132,9,6,6,9,240 
1130 data 144,144,240,225,18,12,12,18 
1140 data 225,33,33,66,195,36,24,24 


1150 data 36,195,66,132,132,135,72,48 
1160 data 48,72,135,15,9,9,15,144 
1170 data 96,96,144,33,30,18,18,30 
1180 data 33,192,192 


Wij hopen dat u met de in deze aflevering 
behandelde onderwerpen een indruk hebt 
gekregen van de mogelijkheden van com¬ 
puter animatie op de Commodore 64. 
Veel plezier bij het maken van uw eigen 
animatie demo’s. 

Michel de Boer & Hylke Sprangers 


POKE 56578, PEEK(56578) OR 3 

POKE 56576, PEEK(56576) AND 252 OR 1 

Nu willen we het schermgeheugen in het derde gebied van 
bank 2 zetten. Het schermadres is dan 2048 + 32768 = 34816. 
Dit geven we vervolgens door aan de computer: 


Schermgeheugen gebieden in bank 0 

Nummer 

Bits 4-7 
53272 

Gebied 

C 

0 

0000 

0-999 

0 

1 

OOOl 

1024-1023 

16 

2 

0010 

2048-3047 

32 

3 

0011 

3072-4071 

48 

4 

OIOO 

4096-5095 

64 

5 

0101 

5120-6119 

80 

6 

0110 

6144-7143 

96 

7 

0111 

7168-8167 

112 

8 

1000 

8192-9191 

128 

9 

1001 

9216-10215 

144 

10 

1010 

10240-11239 

160 

11 

1011 

11264-12263 

176 

12 

1100 

12288-13287 

192 

13 

1101 

13312-14311 

208 

14 

1110 

14336-15335 

224 

15 

1111 

15360-16359 

240 

Standaard : gebied 1 

Gebied kiezen: 


POKE 53272, 

PEEK(53272) 
AND 15 OR C 


POKE 648, (adres scherm)/256 


Figuur 3. 


POKE 53272, PEEK(53272) AND 15 OR 32 
POKE 648, 34816/256 

We willen nog even benadrukken dat de VIC de gebieden 
4096-8191 (bank 0) en 36864-40959 (bank 2) als karakter- 
ROM ziet. Op deze gebieden kunnen dus geen grafische objec¬ 
ten staan. Omdat in bank 1 en in bank 3 geen karakterROM is, 
kunnen in deze twee banks de objecten overal staan. In deze 
banks heeft u echter geen standaard karakterset tot uw beschik¬ 
king. 

Het kleurengeheugen 

Het kleurenhegeheugen kan niet verplaatst worden en loopt al¬ 
tijd van adres 55296 tot adres 56295. 

De sprites 

Een sprite bestaat uit 63 bytes. Het eerste adres van het 
geheugengebied waar u de sprites zet, moet een veelvoud zijn 
van 64. Zo passen er in een bank 16384/64 = 256 sprites. Het 
gebied waar een sprite staat, kunt u aan de computer doorgeven 
d.m.v. sprite pointers. De sprite pointers voor de 8 sprites die 
de Commodore 64 telt, bevinden zich vanaf adres 2040 tot 
2047. In deze adressen moet het gebied (0 - 255) gepoked wor¬ 
den, waar de sprite staat. U moet echter oppassen als u het 
scherm verplaatst, want de sprite pointers verhuizen steeds met 
het scherm mee. U moet onthouden dat de sprite pointers steeds 
17 plaatsen na het laatste schermadres staan. Ook moet u aan 
het volgende denken: Standaard staat het scherm in gebied 1 
van bank 0. Als u nu bijvoorbeeld naar bank 2 overschakelt, 
staat het scherm nog steeds in gebied 1, echter nu in gebied 1 
van bank 2! 

Het high resolution scherm 

Omdat er 8192 bytes nodig zijn om een hires scherm op te 
slaan, zijn er per bank 2 gebieden om het hires in op te slaan. 
Voor bank 0 zijn dat de gebieden 0-8191 en 8192-16383. De 
andere drie banks hebben dezelfde tweedeling. Met het vierde 
bit van adres 53272 kunt u het gebied uitkiezen dat u wilt. Als 
dit bit uitstaat, komt het hires in het eerste gebied van de bank, 
als het bit aanstaat in het tweede. 
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Handboek noodzakelijk! 

Adventures uitdaging 



S oftware pakketten uitbrengen 
speciaal gericht op de Neder¬ 
landse markt is en blijft een moei¬ 
lijke zaak. Geïmporteerde soft¬ 
ware lijkt veel makkelijker maar 
dat is meestal maar schijn. Pak¬ 
ketten zijn veelal in gekraakte ver¬ 
sie veel eerder op de Nederlandse 
markt ‘verkrijgbaar’. De spelletjes, 
dat is de meest gekopieerde soft¬ 
ware, hebben meestal geen 
handleiding nodig. Een ieder die 
een beetje thuis is op de computer 
snapt al snel hoe het spel ge¬ 
speeld moet worden. 

Wat anders ligt dat met de serieuze soft¬ 
ware, hier is de handleiding veel meer van 
belang. En dan hebben we nog een cata- 
gorie waar het spelen van het spel vrijwel 
onmogelijk is zonder een goede handlei¬ 
ding. We praten hier dan over de adven¬ 
tures. Dit soort spelen zijn zijn meestal 
beeldverhalen waar de speler een grote 
inbreng in heeft. Er blijkt in Nederland 
ook een grote groep mensen te zijn die 
niets liever spelen dan deze (Engelstali¬ 
ge) adventures. Zij zien het als een uitda¬ 
ging zich helemaal aan zo’n spel te wij¬ 
den. Het kan weken, ja zelfs maanden du¬ 
ren, als het je al lukt, om het spel te 
doorgronden. Sommige komen er nooit 
doorheen, anderen die meer ervaring in 
dit soort spelen hebben, hebben er bedui¬ 
dend minder moeite mee. 

The legend of the Blacksilver 

Legend of BlackSilver is geen uitzonde¬ 
ring en heeft een redelijk dikke handlei-, 
ding. Hierbij is een landkaart op poster 
formaat gevoegd. Het geheel lijkt op een 
ouderwetse op perkament gedrukte schat¬ 
kaart. Dit is een onmisbaar instrument. 
Het spel start met een stukje sprookje en 
is genoemd "een roep naar avontuur". In 
het kort komt het op het volgende neer: 

Ik ben niet langer een simpele ziel. Sinds 
mijn zeer speciale droom, is er niets meer 
hetzelfde. Het was verbazend maar waar. 
Prinses Aylea, dochter van de koning van 


alle Thalen, is speciaal naar me toe geko¬ 
men. We hebben een held nodig, fluister¬ 
de de prinses. We hebben een strijder no¬ 
dig waar alle anderen faalden. In mijn 
droom heb ik steeds gevraagd, ‘waarom 
ik’, maar ze vertelde me: ‘slaap rustig 
verder terwijl ik het gehele verhaal ver¬ 
tel’. 

Baron Taragas heeft het Blacksilver, het 
zwarte zilver, in zijn mijn gevonden, en 
nu vrezen we voor de veiligheid van ons 
allemaal. Het heeft de kracht om bergen 
op te werpen en de grote zeëen te dem¬ 


pen. De krachten om het land te vernieti¬ 
gen. Mijn vader heeft een groot leger bij 
elkaar geroepen om tegen Taragas ten 
strijde te trekken. Maar helaas is hij ont¬ 
voerd voor hij de legers kon gaan aanvoe¬ 
ren. De tovenaar Seravol heeft me verteld 
dat het leger op deze manier nooit de 
strijd kan leiden. Er moet één persoon, 
een speciale strijder zijn. Na nog een paar 
woorden gesproken te hebben, kreeg ik 
een veer in mijn handen gestopt en ver¬ 
dween in dromenland. 

Ik bekijk de wereld nu met de ogen van 
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een strijder. Ik ben gestorven en herboren. 
Het enige dat mij bijgebleven is zijn de 
laatste woorden van de prinses, Ik had ie¬ 
dereen kunnen kiezen maar ik koos jou, 
Ik mag dus niet falen... 

Op deze manier wordt het spel ingcleid. 
Het spel kan met het toetsenbord maar 
ook met een joystick worden gespeeld. 
Om verder te komen moet U steeds kie¬ 
zen uit een groot aantal korte comman¬ 
do’s. Zij kunnen uit een lijst worden ge¬ 
kozen met de joystick, maar sneller gaat 
het door de eerste letter van het comman¬ 
do in te tikkken. Bij het starten van het 
spel bevindt je je aan de rand van het land 
van Thalen. Er is een grote verscheiden¬ 
heid aan landschappen. Het Xamine com¬ 
mando geeft een suggestie wat je het be¬ 
ste bij een bepaald landschap kunt doen. 
De kaarten werden in die tijd niet zo 
nauwkeurig getekend als tegenwoordig. 
Er wordt bij het programma een aantal 
losse stickers bijgeleverd, waarmee de 
verschillende onderdelen op de kaart 
nauwkeurig kunnen worden aangegeven. 
Er zijn 64 verschillende soorten tegen¬ 
standers die je op de route kunt tegenko¬ 
men. Ze zijn grof te spliten in twee types, 
monsters en Humanoids. Monsters zijn 
altijd vijandig, humanoids kunnen heel 
vriendelijk zijn, het blijft dus opletten. In 
de steden, er zijn 16 verschillende steden, 
zijn de noodzakelijke winkels en banken, 
zonder hen is een overwinning niet moge¬ 
lijk. Maar ze kunnen ook een ondergang 
betekenen. In de tempels bevindt zich een 
gamemaster, maar ook hier geldt, het is 
niet allemaal wat het lijkt, voorzichtig¬ 
heid is de enigste mogelijheid om te over¬ 
leven. 

Achter in de handleiding is een volledig 
overzicht opgenomen van personages die 
in het spel voorkomen. Om het spel tot 
een goed einde te brengen is het noodza- 
kclijk om alle gegevens die hierin ver¬ 
meld worden goed door te lezen. De per¬ 
soonlijke eigenschappen van een tegen¬ 
stander kennen kan bij een strijd de door¬ 
slag geven. Eén troost wij hebben het spel 
niet tot het einde kunnen spelen. Lukt het 
U wel, dan horen we dit graag van U, 
maar dan met een goede beschrijving zo¬ 
dat een ander er ook wat aan heeft. 


Pool of Radiance 

Pool of Radiance is de eerste uit een reeks 
fantasy rollenspel adventures. Zij komen 
allemaal van de hand van de legendari¬ 
sche producer van AdvancedDungeons & 
Dragons. De computergraphics zijn klei¬ 
ne kunstwerkjes op zich. Van ieder karak¬ 
ter is er een volledig portret op het 
scherm. De steden worden in een realis¬ 
tisch 3-D beeld weergegeven. 

Het spel speelt zich af in een tot ruïne ge¬ 


worden stad in het noordelijk deel van de 
Moonsea. Hier proberen avonturiers van 
een ontwikkelde natie de stad te herbou¬ 
wen. Vier stukken gereedschap kunnen je 
hierbij helpen. Als eerste is er een regel- 
boek, hierin zijn vele omschrijvingen te 
vinden. Het volgende is het avonturen 
boek. Hierin zijn verhalen opgenomen en 
vele tekeningen. Dit is een onmisbaar 
stuk gereedschap, zonder dit onderdeel 
goed bestudeerd te hebben is het spel ze¬ 
ker niet te spelen. De snel-startkaart, hier 
wordt uitgelegd hoe het spel te spelen is. 
En als laatste maar zeker niet het belang¬ 
rijkste onderdeel het vertaal-wiel. Dit 
wiel is noodzakelijk om de tekens in lees¬ 
bare tekst om te zetten. 

Het verhaal draait om een locatie in het 
noordelijk deel van de Moonsea in een 
reeds vergeten koninkrijk. Phlan was de 
eerste grote stad van de Moonsea, enkele 
duizenden jaren geleden. Deze sprookjes¬ 
achtige stad is ingenomen door een groep 
monsters. Zij staan onder leiding van een 
mysterieuze leider. De opdracht luidt dan 
ook ontmantel deze boosdoener en redt de 
stad van de ondergang. 

Het spel is alleen maar te begrijpen als de 
history van het verhaal bekend is. In het 
begeleidende journaal wordt deze ge¬ 


schiedenis volledig verteld, inclusief 
brieven, schetsen en sugesties. Het ver¬ 
haal is geheel in stijl gedrukt in een oud 
Engelse letter. U moet redelijk goed thuis 
zijn in de Engelse taal om dit spel te kun¬ 
nen spelen. 

De programma’s worden door HomeSoft 
Benelux in Nederland geïmporteerd. Ze 
zijn verkrijgbaar bij alle goede computer¬ 
zaken. Bij deze pakketten zijn boeken 
met tips verkrijgbaar, om het spel uit te 
kunnen spelen. In de doos bij de software 
is hiervoor een speciale bestelkaart mee¬ 
geleverd. 
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Dynamite Dan 

De boosdoeners in dit (moeilijke) spel 
zijn Dokter Blitzer en zijn aantrekkelijke 
assistente Donna. Wat is de oorzaak van 
alle problemen? Dr. Blitzer heeft de plan¬ 
nen voor een "SUPER PSYCHON 
MEGA RAY" in zijn bezit. Deze plannen 
zijn verstopt in een geheime kluis in zijn 
huis. Deze twee personages zijn vals en 
gemeen, onze held, dynamite Dan is juist 
het tegengestelde. Hij is dan ook GOUD- 
en GOUDeerlijk en komt juist op voor de 
gewone man. Hij is een topagent bij de 
geheime dienst en inzetbaar bij elke klus. 
Dan is door zijn slimheid uitgekozen om 
de opdracht tot een goed einde te brengen. 

De opdracht luidt: maak het Dr. Blitzer 
moeilijk en redt de geheime papieren uit 
de kluis. Denk erom, het is zeker geen ge¬ 
makkelijke klus. Vliegen met een zeppe¬ 
lin valt niet mee, maar om deze zeppelin 
ook nog op het dak van Dr. Blitzer te laten 
landen, dat is extra moeilijk. De papieren 
zitten goed opgeborgen in een kluis, om 
ze eruit te halen moet de kluis opgeblazen 
worden. Hiervoor is dynamiet noodzake¬ 
lijk. De acht staven die hiervoor nodig 
zijn zijn merkwaardige genoeg ook in het 
huis verborgen. Deze moeten dus eerst 
opgezocht worden. We zeiden het al, Dr. 
Blitzer is erg gemeen, hij heeft de staven 
dan ook verborgen door zijn gehele huis. 
Natuurlijk liggen deze niet zomaar voor 
het oprapen, het spel zou dan snel afgelo¬ 
pen zijn. Er is een groot aantal hindernis¬ 
sen te nemen. 

Het begint al meteen goed, meteen bij 
binnenkomst blijkt al dat er een groot 
aantal diertjes over de grond kruipt. Ra¬ 
ketten schieten snel op en neer, we hoe¬ 
ven het er haast niet bij te vertellen, maar 
aanraken is natuurlijk niet de bedoeling. 
Om dit geknoei even rustig te bekijken en 
te beoordelen wat de beste richting is kun 
je op de "P", van pauze, drukken. Welke 
route het beste is willen we je niet vertel¬ 
len, hoe het spel eindigt kunnen we je niet 
vertellen (we zijn niet zover gekomen). 
Misschien zijn er zelfs wel lezers die een 
paar handige tips hiervoor hebben. We 
kunnen op onze route ook nog verplaats- 
machine’s tegenkomen. Deze hokjes ver¬ 
plaatsen ons een eind verder. Dit is niet 
altijd even handig, maar daar kom je van¬ 
zelf wel achter. De eerste verplaatsmachi- 


ne kun je al vanuit de zeppelin zien, de 
zeppelin rechts verlaten, de trap op links 
en je bent er. De bedoeling is om onder de 
stralendouche te gaan staan en je wordt 
automatisch verplaatst. Alleen ervaring 
kan hierbij een goede leidraad zijn. De lift 
kan je helemaal naar de kelder van het ge¬ 
bouw brengen. Het blijkt dat je hier bij 
een ondergrondse rivier bent aangeko¬ 
men. Er drijft een kistje op de rivier, hier¬ 
van is gebruik te maken door je er op te 
laten vallen. Je drijft nu met de rivier mee. 
Dit gaat niet vanzelf, je moet lopen om je 
in evenwicht te houden, anders is een nat 
pak het resultaat. Ook in deze kelder 
blijkt al gauw dat het in dit huis niet hele¬ 
maal pluis is. De energievoorraad die je 
bezit is alleen maar op peil te houden door 
regelmatig te eten. Naast energie levert 
dit ook nog punten op. Soep, 40 punten, 
een kopje thee, 35 punten en een eitje 
maar 5 punten. 

Behalve de etenswaren is er ook nog een 
groot aantal non-food materialen die pun¬ 
ten opleveren, zoals deodorant en credit¬ 
cards. Alles wat kruipt, vliegt of zelfs 
maar beweegt is dodelijk, denk daarom. 
De trampolines moeten gebruikt worden 
om voorwerpen die zich op een te hoog 
niveau bevinden te pakken. De veren zijn 
hier ook voor te gebruiken, maar dit is 
veel gevaarlijker. Levensgevaarlijk zijn 
ook de gammastralen. Zij zijn maar enke¬ 
le momenten aan en daardoor juist zo ge¬ 
vaarlijk. Maak hiervan een situatieschets, 


zo kom je minder snel voor verrassingen 
te staan en is de weg makkelijker terug te 
vinden. De kluis is zo gevonden, maar 
alle acht de dynamietstaven moeten eerst 
zijn gevonden!! 

Ergens wacht Dr. Blitzer op je in een ge¬ 
heime kamer, hij blijft hier op je wachten 
om je, zodra je levens allemaal zijn ver¬ 
speeld, het genadeschot te geven met zijn 
speciale straalpistool. Ondanks alle geva¬ 
ren toch veel spelplezier gewenst. 

Bounder 

In dit spel ben je een tennisbal, deze ligt 
bovenop het dak van een torenhoge flat. 
Zodra het spel is gestart begint het beeld 
te scrollen. Je moet nu wel meebewegen 
wil je niet vroegtijdig het loodje leggen. 
Het is zaak goed te kijken welke kant je 
op moet sturen. Je stuurt o zo snel een 
doodlopende straat in. Het lukt dan lang 
niet altijd om over de afgrond heen te 
springen. Op deze manier ben je gauw 
door je levens heen. 

Gebruik vooral de pijltoetsen om grote af¬ 
standen te overbruggen. Onderweg kun je 
vraagtekens tegenkomen. Kijk hiermee 
uit, vraagtekens zijn en blijven raadsels. 
Vaak kunnen ze je een voordeel opleve¬ 
ren. Maar er zijn er ook, voorzien van een 
kunstgebit, die er een groot genoegen in 
scheppen om de tennisbal tot moes te ver¬ 
malen. In het eerste level blijken de moei¬ 
lijkheden nog wel mee te vallen, een bee¬ 
tje oefenen in het springen en level twee 
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is de beloning. Een geoefende speler lacht 
om dit eerste level. 

In het tweede level zwermen er een aantal 
dikke wespen rond, probeer deze te van¬ 
gen, ze leveren een groot aantal bonus- 
punten op. Na elk volbracht level wacht 
er een bonusronde. Onderschat deze ron¬ 
de niet, het kan heel belangrijk zijn. Hier¬ 
in is het namelijk mogelijk het aantal 
vraagtekens te verminderen. Dit gebeurt 
door erop te landen. Buiten dit voordeel 
levert het ook nog punten op. In elk level 
worden de vijanden vijandiger, de daken 
smaller en vliegen er meer dingen in de 
rondte. Er zijn zelfs vraagtekens die ver¬ 
bonden zijn met een pijltjesgooier, pas 
dus goed op. Het derde level wordt gro¬ 
tendeels beheerst door een lachende te¬ 
genstander. Deze is niet te missen, je 
komt hem al in het begin tegen. Zorg dat 
jij het bent die het laatste lacht en ga hem 
maar uit de weg. Ook hier komen we de 
reeds bekende pijltjesgooier tegen, alleen 
is hierbij het vraagteken niet meer nodig. 
De hitte maakt ventilatoren noodzakelijk. 
Zij zijn zo sterk dat je erdoor weg wordt 
geblazen, maar met wat aandacht is dit 
ook in je voordeel te gebruiken. Sommige 
tegels in dit level zijn niet wat het lijkt. 
Onbekende vijanden proberen de vrije 
loop op alle manieren te verhinderen, hou 
hiervoor ook het luchtruim goed in de ga¬ 
ten. Er zijn in het totaal maar liefst tien 
verschillende levels. De bergen worden 
steeds moeilijker om te nemen, vijanden 
blijken elke keer weer wat slimmer en tal¬ 
rijker te worden. Water blijkt een grotere 
hindernis dan het lijkt. Het is een moeilij¬ 
ke, zo niet onmogelijke opdracht om het 
spel helemaal uit te spelen. Tips zijn er 
eigenlijk nauwelijks te geven, de beste 
raadgever is ook hier de ervaring. Alleen 


Bounder 


maar door te proberen kom je erachter 
wat een bepaald vraagteken nu precies in¬ 
houdt. Probeer hierbij aan het wijze 
spreekwoord te denken: Een ezel stoot 

zich in ’t gemeen.(of wel soms). Aan 

het eind wordt het wel erg moeilijk als je 
in een veld belandt dat vol staat met de 
verraderlijke vraagtekens. Pas hier extra 
op, er schuilt een addertje onder het gras, 
of eigenlijk onder de vraagtekens!! 

Dit spel is er weer één van het soort: heeft 
het je eenmaal te pakken dan raak je eraan 
verslaafd. Uren zijn er dan achter de com¬ 
puter door te brengen, dit soms tot onge¬ 
noegen van de andere huisgenoten, dus 
voorzichtig met deze software. 


Traffic 


Zoals de naam al doet vermoeden heeft 
het verkeer een groot aandeel in dit spel. 
Verkeerslichten leiden het verkeer in goe¬ 
de banen. Worden deze lichten verkeerd 
bediend dan leidt dit zeker tot een ver¬ 
keerschaos. U kunt zich voorstellen wat 
er gebeurt in Londen als er zich proble¬ 
men met deze lichten voordoen. En dat is 
in dit spel het geval. In dit programma ligt 
bij jou de taak om de verkeersstroom te 
beïnvloeden door op een juiste manier de 
verkeerslichten te bedienen. Deze verant¬ 
woordelijke baan staat je te wachten. Je 
bent de enige die de stad van de onder¬ 
gang kan redden. Je staat er echt helemaal 
alleen voor, ook de anders zo vriendelijke 
bobby’s zijn door een virus uitgeschakeld 
en zijn thuis in hun warme bed gebleven. 
Na je jarenlang aan het verkeer te hebben 
geërgerd en gemopperd te hebben op die 
.... verkeerslichten. Hier is dan je kans, 
kijk maar wat jij er van kan maken. Zodra 
het spel is opgestart zie je op het beeld¬ 
scherm een deel van het stratenplan van 
Londen. Alles lijkt heel rustig, maar hou 
je vast, het verkeer komt eraan en in grote 
aantallen. Auto’s, bussen, alles begint te 
rijden. Het is makkelijk om door een druk 
op de run/stop toets het beeld te bevrie¬ 
zen. Je kunt nu op je gemak het geheel 
bekijken en de beste beslissing nemen. 
Het spel gaat weer verder door de spatie¬ 
balk in te drukken. Het verkeersgeruis is 
dan duidelijk hoorbaar. Op één van de 
kruispunten zie je een kruisvizier staan. 
Dit wil zeggen dat dit het kruispunt is 
waar je de verkeerslichten kunt bedienen. 
Het verkeer dat rood licht heeft wacht ne¬ 
tjes en verkeer met een groen licht trekt 
langzaam op. Nu is het de bedoeling stuk 


Traffic 
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voor stuk op de kruispunten de lichten te 
wijzigen zodat de verkeersstroom op 
gang blijft. Hierbij is het van belang dat 
er nergens lange files ontstaan. Zodra dit 
het geval is zie je bij Q een cijfer staan. 
Dit cijfer geeft het aantal files in dit stads¬ 
deel aan. Zodra de automobilisten onge¬ 
duldig beginnen te toeteren dan worden 
de files te lang. Laat deze files niet te lang 
worden want dan is het spel snel afgedaan 
als een hopeloze zaak. Vergeet ook niet 
dat je je in Engeland bevindt, ze doen hier 
alles anders en ze rijden ook nog links. 
Dit is zeker ook even wennen. Als een 
auto van richting wil veranderen kun je 
dit zien aan de richtingaanwijzers. Let 
hier goed op, er kunnen hierdoor lange fi¬ 
les ontstaan, want heb je net het verkeer 
groen licht gegeven dan kan deze auto de 
boel lelijk blokkeren en alles komt toch 
nog vast te zitten. De in Nederland ‘pri¬ 
ma’ functionerende groene zone kun je 
hier ook proberen in te voeren. Wie weet 
voldoet dit hier wel goed. Houd bussen en 
de zondagsrijders extra in het oog. Zij 
willen nog wel eens door het net op rood 
springende licht rijden, met alle gevolgen 
van dien. En vergeet bovenal niet dat een 
Engelse automobilist een heer in het ver¬ 
keer is, zij wachten op alles. Dit alles is 
natuurlijk makkelijker gezegd dan ge¬ 
daan, tenslotte staan de beste stuurlui al¬ 
tijd nog aan de wal, of in dit geval aan de 
kant. En wie weet geeft het spelen van dit 
spel ook wat meer inzicht in het echte ver¬ 
keer, het blijkt dat ook jij zelf het niet he¬ 


lemaal goed kan doen (misschien wel he¬ 
lemaal niet). 

Trashman 

Vele beroepen zijn al de basis geweest 
voor computerspelletjes. Natuurlijk zegt 
dit niet alles over het beroep, vaak lijkt 
het er in de verste verte niet meer op. 
Maar dit mag de pret niet drukken. Dit¬ 
maal is de vuilnisophaler aan de beurt. Nu 
niet meteen je schouders ophalen, er zijn 
wel niet zoveel jongens en meisjes die 
vuilnis"man" willen worden als piloot of 
dokter, maar in dit spel wil iederéén het 
wel. Ook in dit spel krijgen we weer een 
bevestiging van de regel, alle begin is 
moeilijk, zelfs vuilnis ophalen moet wor¬ 
den geleerd. Het spel start in de kortste 
straat, en dat is maar goed ook, zo kan er 
wat ervaring worden opgebouwd. 
Staunton Road valt de eer te beurt om als 
eerste van de vuilnis verlost te worden. Er 
staan hier niet meer dan vijf huizen, en 
ook niet meer dan vijf bakken die moeten 
worden geleegd. Denk niet: dat heb ik zo 
voor elkaar, want dan kom je bedrogen 
uit. Er moet netjes gewerkt worden, gras¬ 
velden mogen niet gebruikt worden. Je 
wordt soms zelfs keurig gewaarschuwd 
door een bordje “denk om de hond”. Sla 
deze waarschuwing niet in de wind, deze 
borden staan er niet voor niets. Gebruik 
de paden, wijk daar niet van af, alleen op 
deze manier zijn er voldoende bonuspun- 
ten te verkrijgen. De bedoeling is de bak 
op te halen, deze te legen en dan weer ne¬ 


tjes terug te zetten waar deze stond. Het 
blijkt dat de vuilophalers niet erg geliefd 
zijn bij de weggebruikers. Dus kom niet 
te dicht aan de rand als er een auto nadert. 
Lukt het je om de lege bak weer op zijn 
oude plaats terug te zetten, vaak weer he¬ 
lemaal achterin de tuin, dan komt de be¬ 
woner naar buiten. Deze zal je dan vrien¬ 
delijk te woord staan en je om een gunst 
vragen. De bedoeling is dan dat je mee 
loopt zijn huis binnen. Je krijgt na afloop 
een fooi. Dat is erg belangrijk, want die 
wordt later omgezet naar bonuspunten. 
Zonder deze bonuspunten is het niet mo¬ 
gelijk om een volgende straat af te hande¬ 
len. Soms heb je het idee dat een vuilnis¬ 
bak op een plaats staat die niet via een pad 
te bereiken is. Kijk dan ook achter het 
huis maar ga in geen geval via het gras. 
Zodra een straat geheel is afgewerkt loop 
je naar het einde van de straat om naar de 
volgende straat te gaan. In deze straat is 
zelfs de stoep gevaarlijk geworden, hier 
vliegen jongens rond. Ze rijden je zo van 
de sokken, met het gevolg dat je je een 
aantal momenten niet meer kan bewegen. 
Pubs lijken erg aantrekkelijk, het is hier 
gezellig en warm, maar deze verleiding is 
niet van alle gevaar ontbloot. Je ziet: het 
vak van vuilnisophaler gaat ook niet over 
rozen. Al met al een gezellig eenvoudig 
spel, waarbij niet te veel moet worden na¬ 
gedacht. 

RG 
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Musical Enlightenment 

- zelf componeren 

- Nederlandse handleiding 

- vier modules voor song, 
instrument, effecten en sample 

- met speelroutine voor Devpac 
en Aztec 

prijs: ƒ 59,00 


- nieuws uit binnen- en buitenland 

- advertenties 

- handige Utilities 

- tips en trucs 

- demo’s 

- Engelstalig 

prijs: ƒ 17,50 
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Rembourszendingen zijn mogelijk, echter hiervoor brengen we ƒ 5,= in rekening. 
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Tips & Trucs 64 


P rinses lente heeft de strijd aan¬ 
gebonden met koning winter. 
Het zal niet lang meer duren eer 
deze verschrikkelijke strijd in het 
voordeel van de schone prinses 
beslecht is. Maar voordat zij met 
haar charme de knoppen aan de 
bomen doet ontwaken en de vo¬ 
geltjes doet zingen, bieden Hylke 
Sprangers en Michel de Boer u 
wederom een bonte verzameling 
tips & trucs, die uitnodigen tot een 
flinke worstelpartij met uw Com¬ 
modore 64. 

In deze aflevering hebben we onder ande¬ 
re de volgende onderwerpen: verbeterde 
FRE functie, register opslag, joystick be¬ 
sturing en alles over random. 

Verbeterde FRE 

In de handleiding van de Commodore 64 
staat dat met de instructie FRE(X) het 
aantal bytes, dat vrij is voor Basic, opge¬ 
vraagd kan worden. Waarbij voor X een 
willekeurige waarde of een string mag 
worden ingevuld. Als u echter direct na¬ 
dat u de computer heeft aangezet de in¬ 
structie PRINT FRE(O) intikt, krijgt u een 
negatieve waarde. Deze waarde klopt 
niet; wat moeten we ons voorstellen bij 
een negatief aantal bytes? Hoe komt het 
dat de computer een negatieve waarde re¬ 
tourneert en hoe kunnen we de juiste 
waarde berekenen? 

Dat er een negatieve waarde geretour¬ 
neerd wordt, is als volgt te verklaren. De 
machinecode voor de FRE functie bere¬ 
kent hoeveel bytes er vrij zijn en vertaalt 
het resultaat naar floating point formaat. 
Bij dat vertalen gaat het fout. Hiervoor 


Regsiter opslag adressen 
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Register 

780 

781 

782 

783 

A register (accumulator) 

X index register 

Y index register 

P register (status) 


Figuur 1 


wordt namelijk de routine op adres $B391 
gebruikt. Deze routine vertaalt twee-com- 
plement 16-bits integers naar floating 
point formaat. Hierbij worden integers 
waarvan het meest linkse bit aanstaat, op¬ 
gevat als negatieve getallen (zie vorige 
aflevering van Tips & Trucs 64’ voor 
een uitgebreide beschrijving van twee- 
complement getallen). Deze routine le¬ 
vert dus waarden die tussen -32768 en 

32767 liggen. Bij de voorloper van de 
Commodore 64, de VIC 20, was dit geen 
probleem, omdat er altijd minder dan 

32768 bytes vrij waren. Bij de Commo¬ 
dore 64 kunnen er meer dan 32767 bytes 
vrij zijn. Dit aantal wordt dan opgevat als 
een negatief getal. Dit kan verholpen 
worden door de machinecode voor de 
FRE functie zodanig te veranderen, dat 
niet de vertaalroutine op adres $B391 
wordt gebruikt, maar een routine die ge¬ 
wone integers tussen 0 en 65535 vertaalt. 
Om de code te veranderen moet het Basic 
ROM eerst naar RAM worden verplaatst. 
In RAM kunnen we dan de verandering 
aanbrengen. Het onderstaande program¬ 
ma doet dit. 

5 rem verbeterde fre 

10 for i=679 to 696 

20 read a:poke i,a:next 

30 for i=40960 to 49151 

40 poke i,peek(i):next 

50 poke l,peek(l) and 254 

60 for 1=45965 to 45967 

70 read arpoke i,a:next 

100 data 165,52,229,50,162,0,134,13 

110 data 133,98,132,99,162,144,56,76 

120 data 73,188 

130 data 76,167,2 

In regels 10-20 wordt er een routine die 
gewone integers vertaalt, op adres 679 
gezet. Regels 30-50 verplaatsen het Basic 
ROM naar RAM. Tenslotte wordt in re¬ 
gels 60-70 de verandering aangebracht. 
Als u na het runnen van dit programma de 
FRE functie uitvoert, krijgt u de juiste 
waarde. 

Register opslag 

De machinetaalprogrammeur heeft op de 
Commodore 64 vier registers tot zijn be¬ 
schikking; het A register, X index regis¬ 
ter, Y index register en P register. Het A 
register wordt meestal accumulator ge¬ 
noemd. Het P register is het status regis- 


Bitbetekenis van adres 783 
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Interrupt Disable 

1 
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Zero 
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Carry 


Figuur 2. 


ter. Dit register bevat alle vlaggen, zoals 
de carry en overflow vlag. 

Een machinetaal programma kan vanuit 
Basic met het SYS commando worden 
aangeroepen. In het begin van het pro¬ 
gramma hebben de vier registers een on¬ 
bekende waarde. Deze registers worden 
dan in het machinetaal programma geini- 
tialiseerd. (Initialiseren betekent dat aan 
de registers een beginwaarde wordt gege¬ 
ven.) Het is echter ook mogelijk om de 
registers vanuit Basic te initialiseren, zo¬ 
dat de registers vanaf het begin van het 
machinetaal programma een bekende 
waarde hebben. Zodra het SYS comman¬ 
do wordt gegeven, wordt namelijk niet 
meteen gestart met het uitvoeren van het 
machinetaal programma, maar worden 
eerst de waarden van de adressen 780-783 
in de registers geladen. In figuur 1 staat 
welk adres in welk register wordt gela¬ 
den. Om er bijvoorbeeld voor te zorgen 
dat de accumulator de waarde 5 heeft bij 
de start van het programma, moet u in 
adres 780 een 5 poken, voordat u het SYS 
commando geeft. Nadat het machinetaal 
programma beëindigd is, worden de 
waarden van de registers in de adressen 
780-783 gestopt, zodat u vanuit Basic kan 
bekijken welke resultaten het machine¬ 
taal programma in de registers heeft ge¬ 
stopt. De adressen 780-783 worden alleen 
gebruikt bij het SYS commando en niet 
bij de USR instructie. 

Adres 783 behoeft nog enige uitleg. In dit 
adres correspondeert elk bit met een vlag. 
In figuur 2 staat welk bit correspondeert 
met welke vlag. Als bijvoorbeeld voor de 
aanroep van een routine de carry vlag 
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moet worden aangezet, dan moet u bit 0 
van adres 783 aanzetten met bijvoorbeeld 
POKE 783,PEEK(783) OR2~0. 

Een handige toepassing van de adressen 
780-783 is het positioneren van de cursor. 
Dit kan gedaan worden met de ROM rou¬ 
tine op adres 65520. Voor de aanroep van 
deze routine moet het kolomnummer in 
het Y register en het regelnummer in het 
X register worden gezet en de carry vlag 
moet worden uitgezet. Het volgende 
voorbeeld programma positioneert de 
cursor op regel 12 en kolom 18 en print 
op deze positie 'hallo'. 

10 rem cursor positioneren 
20 poke 781,12:poke 782,18 
30 poke 783,peek(783) and 
(255-2 A 0) 

40 sys 65520 
50 print "hallo" 

Als voor de aanroep de carry vlag aange¬ 
zet wordt, dan bevatten de X en Y regis¬ 
ters na de uitvoering van de routine de 
cursor positie. Het volgende programma 
illustreert dit. 

10 rem lees cursor positie 
20 poke 783,peek(783) or 2*0 
30 sys 65520 

40 print "regel;peek(781) 

50 print "kolom:";peek(782) 

Joystick besturing 

In veel programma’s wordt gebruik ge¬ 
maakt van de joystick; bijvoorbeeld voor 
de besturing van een Formule 1 in een 
race spelletje of voor de besturing van een 
aanwijspijltje in een menu gestuurd pro¬ 
gramma. In deze aflevering zullen we uit¬ 
leggen hoe joystick besturing in eigen 
programma’s gebruikt kan worden. 

De Commodore 64 heeft aan de zijkant 
twee poorten waar joysticks ingeplugd 
kunnen worden. De voorste poort is poort 
1 en de achterste is poort 2. Beide poorten 
zijn aangesloten op de Complex Interface 
Adapter chip (CIA). Deze chip regelt de 
communicatie met randappatuur. De ge- 
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bruiker kan via een aantal geheugena- 
dressen communiceren met deze chip. De 
adressen 56320 en 56321 dienen voor de 
communicatie met de joysticks. Logi¬ 
scher wijs zou u verwachten dat adres 
56320 bij poort 1 hoort en 56321 bij poort 
2. De Commodore 64 is echter niet zo lo¬ 
gisch en adres 56320 hoort dan ook bij 
poort 2 en 56321 bij poort 1. Als u de 
joystick in poort 2 beweegt, dan verandert 
de waarde van adres 56320. 

Als u uw joystick uit elkaar haalt, dan 
kunt u zien dat een joystick uit een hoop 
draden en vijf schakelaartjes bestaat; vier 
voor de richtingen links, rechts, omhoog 
en omlaag en een voor de vuurknop. 
Sommige joysticks hebben nog een zesde 
schakelaar voor een extra vuurknop. Deze 
is echter met dezelfde draadjes als de 
schakelaar voor de eerste vuurknop ver¬ 
bonden. Elke schakelaar in de joystick 
correspondeert met een bit in adres 56320 
of 56321. Hiervoor worden bits 0-4 ge¬ 
bruikt. Bits 5-7 hebben een andere func¬ 
tie. In figuur 3 kunt u zien welk bit over¬ 
eenkomt met welke schakelaar. Als een 
schakelaar geen contact maakt heeft het 
overeenkomstige bit de waarde 1 en als er 
wel contact gemaakt wordt heeft het bit 


de waarde 0. (Ja, de Commodore 64 is 
wel consequent onlogisch.) Als de joys¬ 
tick niet bewogen wordt, staan alle bits 
dus aan. Door te testen welke bits er uit 
staan, kan bepaald worden in welke rich¬ 
ting de joystick bewogen wordt. Als de 
joystick niet in vertikale of horizontale 
richting bewogen wordt, maar in diagona¬ 
le, dan maken twee schakelaartjes tegelijk 
contact en er worden dus twee bits uitge¬ 
zet. Bits 0 en 2 worden bijvoorbeeld uit¬ 
gezet als de joystick naar links en om¬ 
hoog bewogen wordt. Het is nogal onhan¬ 
dig om de vijf bits een voor een te testen 
met de AND instructie. Met het volgende 
statement kunt u eenvoudig testen in wel¬ 
ke richting joystick 2 wordt bewogen: 
R2=NOT PEEK(56320) AND 15 
In figuur 4 staat welke waarde R2 heeft 
bij de acht verschillende richtingen. De 
waarden 3 en 7 komen in deze figuur niet 
voor omdat deze alleen kunnen optreden 
als de schakelaars voor links en rechts of 
omhoog en omlaag tegelijk worden inge¬ 
drukt. Dit is onmogelijk. U kunt nu een¬ 
voudig met een ON R2 GOSUB construc- 
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tie, bij elke richting de juiste actie onder¬ 
nemen. 

Met het volgende statement kunt u testen 
of de vuurknop van joystick 2 is inge¬ 
drukt. 

V2=PEEK(56320) AND 16 

V2 heeft de waarde 0 als de vuurknop is 
ingedrukt en 16 als dit niet zo is. 

Joystick 1 kan op dezelfde wijze getest 
worden. Adres 56320 moet dan vervan¬ 
gen worden door adres 56321. 

Het gebruik van joystick 1 geeft enkele 
problemen. Adres 56321 wordt namelijk 
niet alleen voor de joystick gebruikt maar 
ook voor het scannen van het toetsenbord. 
Beweegt u de joystick in poort 1 maar 
eens naar rechts. Er verschijnt dan een ’2’ 
op het scherm. De computer kan geen on¬ 
derscheid maken tussen het naar rechts 
bewegen van de joystick en het intikken 
dan de ’2’. U kunt wel voorkomen dat de 
invoer van het toetsenbord beschouwd 
wordt als invoer van de joystick, door het 
scannen van het toetsenbord te stoppen 
als u de joystick test. Dit kunt u doen met 
POKE 56333,127:POKE 56321,255. Met 
POKE 56333,129 kunt u het scannen van 
het toetsenbord weer starten. 

Het is niet mogelijk om de joystick uit te 
schakelen. 

Als u maar een joystick nodig heeft, raden 
wij u aan om poort 2 te gebruiken. U om¬ 
zeilt dan alle problemen. 

Het volgende programma verduidelijkt 
het gebruik van de joystick in poort 2: 

10 rem joystick besturing 
20 print "{SHIFT-CLR}"; 

30 r2=not peek(56320) and 15 
40 v2=peek (56320) and 16 
50 r$="geen " 

60 on r2 gosub 

120,130,140,150,160,170,180,190,200 

,210 

70 v$="niet ingedrukt" 

80 if v2=0 then v$="ingedrukt 

90 print "{HOME}richting: " ; r$ 

100 print "vuurknop: ";v$ 

110 goto 30 

120 r$="omhoog ":return 

130 r$="omlaag ":return 

140 rem waarde 3 is onmogelijk 

150 r$="links ":return 

160 r$="links omhoog ":return 
170 r$="links omlaag ":return 
180 rem waarde 7 is onmogelijk 

190 r$="rechts ":return 

200 r$="rechts omhoog":return 
210 r$="rechts omlaag":return 

In regel 30-40 worden de waarden voor r2 
en v2 berekent. In regel 50-60 wordt de 
waarde voor r$ bepaalt. r$ bevat de rich¬ 
ting waarin de joystick bewogen wordt. U 
moet opletten dat er in de ON GOSUB 
constructie ook regelnummers voor de 
waarden 3 en 7 staan, hoewel deze niet 
kunnen optreden. Op deze regelnummers 
kan bijvoorbeeld een REM statement 


worden geplaatst zoals in regels 140 en 
180. In regel 80 wordt getest of de vuur¬ 
knop is ingedrukt. 

Testbeeld generator 

In Commodore Info no. 8 hadden we een 
programma geplaatst dat het beeldscherm 
verdeelde in een aantal horizontale bal¬ 
ken, een zogenaamd testbeeld. Van de 
heer Douwe A. van der Weij kregen we 
een programma toegestuurd, dat een ver¬ 
betering is van het programma van ons. 
De verbeteringen zitten in de volgorde 
van de kleuren, en er is bovendien een 
achtergrondtoon, behorend bij het test¬ 
beeld, toegevoegd. De toon is een blok- 
golf met een frekwentie van 1000 Hz. 
Hieronder volgt het programma. 

10 for i= 49152 to 49259 
20 read a:c=c+a:poke i,a:next 
30 if C013398 then prinf'fout in 

data":end 
40 sys 49152 
400 data 

169, 212, 133,252,169,0,133,251 
410 data 

168,145,251,200,192,25,208,249 
420 data 162,240,142,6,212,162,15,142 
430 data 24,212,162,65,142,4,212,162 
440 data 7,142,3,212,162,128,142,2 
450 data 212,162,66,142,1,212,162,130 
460 data 142,0,212,120,141,17,208,169 
470 data 1,141,32,208,169,1,141,32 
480 data 208,169,7,141,32,208,169,3 
490 data 141,32,208,169,5,141,32,208 
500 data 169,4,141,32,208,169,2,141 
510 data 32,208,169,6,141,32,208,169 
520 data 0,141,32,208,169,0,141,32 
530 data 208,76,55,192 

Random 

We zullen in deze aflevering van Tips & 
Trucs wat extra aandacht besteden aan 
Random. We zullen uitleggen hoe een 
computer een 'willekeurige’ reeks getal¬ 
len kan genereren. 

De eerste vraag die zich gelijk opwerpt, is 
uiteraard wat random nou precies is of be¬ 
tekent. Wel, random is afgeleid van het 
franse woord randir, dat galopperen bete¬ 
kent. In het nederlands betekent random 
zoiets als willekeurig of toeval. Als we 
het over computers hebben, dan wordt 
random meestal geassocieerd met een 
willekeurige rij getallen. De encyclopedie 
omschrijft toeval als het niet aanwijsbare 
van oorzaken, het ongedetermineerde, het 
onvoorspelbare. 

Vraag twee is dan meteen of een wille¬ 
keurige rij getallen wel te genereren is 
door de computer, en of toeval eigenlijk 
wel bestaat. We gaan het hier verder niet 
hebben over de vraag of toeval bestaat. 
(Filosofen kunnen over deze vraag uren 
en uren discussiëren, zonder ook maar 
een stap dichter bij het antwoord te ko¬ 
men, maar dit terzijde). Over de vraag of 
een willekeurige rij getallen door de com¬ 


puter te genereren valt, kunnen we echter 
wel kort zijn, dit kan niet. We kunnen de 
computer echter wel een rij getallen laten 
genereren, die lijkt op een willekeurige 
rij. Deze rij getallen zal echter altijd re¬ 
produceerbaar zijn. Tevens zal ook steeds 
elk volgend getal in de rij te voorspellen 
zijn. Omdat zo’n rij getallen dus niet een 
echte willekeurige rij is, noemen we zo’n 
rij pseudo random. 

In de Commodore 64 zit de funktie RND 
waarmee pseudo random getallen kunnen 
worden verkregen. De computer berekent 
de getallen aan de hand van een formule. 
Deze formule zit gewoon standaard in het 
ROM, en vandaar dat de rij getallen die 
met de formule wordt verkregen, repro¬ 
duceerbaar is. Wat we echter wel aan de 
formule kunnen veranderen, is de begin- 
waarde. Deze beginwaarde wordt ook 
wel de seed value (zaad of kiem) ge¬ 
noemd. Door steeds een andere seed te 
kiezen, krijgen we ook een andere reeks 
getallen. We gaan nu kijken hoe de funk¬ 
tie RND werkt. Aan RND moet een getal 
worden meegegeven tussen haakjes. Aan 
de hand van dit getal wordt een pseudo 
random getal teruggegeven. Bijvoor¬ 
beeld: 

PRINT RND(0) 

Als u dit invoert, wordt er een getal op het 
scherm geprint. Het getal tussen de haak¬ 
jes bij RND is zeer belangrijk. Met een 
negatief getal tussen de haakjes kan de 
seed worden veranderd. We geven een 
voorbeeld: 

PRINT RND(-2) 

Op het scherm zal nu de waarde 
2.99205567E-08 verschijnen. Deze waar¬ 
de krijgt u altijd als u RND(-2) intypt. Zo 
heeft ieder negatief getal haar eigen waar¬ 
de met RND. Dit zijn de seed values. U 
kunt een willekeurige seed uitkiezen. De 
uikomst kunt u bijvoorbeeld in een varia¬ 
bele stoppen die u niet gebruikt, bijvoor¬ 
beeld D=RND(-4). 

Zoals al gezegd, wordt er, door een ande¬ 
re seed te nemen, een andere reeks getal¬ 
len gegenereerd door de Commodore 64. 
Nu de seed is uitgekozen, kunnen we ech¬ 
te pseudo random getallen van de compu¬ 
ter krijgen. Dit moet gebeuren met een 
positief getal tussen de haakjes. Welk po¬ 
sitief getal u nu neemt maakt niet uit. De 
seed value is immers doorgegeven aan de 
computer, en deze genereert nu gewoon 
een lijst met getallen. Het enige wat be¬ 
langrijk is, is dat het getal positief is. We 
geven nu een klein voorbeeld program¬ 
ma: 

10 a=rnd(-2) 

20 for x=0 to 3 
30 print rnd(l) 

4 0 next 

Als u dit programma runt, zullen de vol¬ 
gende getallen steeds op het beeld ver¬ 
schijnen: 

0.865554613 
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0.846128798 
O . 981100118 
0.988081582 

U ziet het, de funktie RND genereert al¬ 
tijd getallen die tussen 0 en 1 in liggen. 
Maar het is natuurlijk niet leuk (en in ga¬ 
mes zeker niet handig) dat zo steeds de¬ 
zelfde rij getallen op het beeld verschijnt. 
Wat we dus willen is een seed die steeds 
verandert. Immers, als we steeds een an¬ 
dere seed hebben, wordt er steeds een an¬ 
dere reeks getallen gegenereerd. Dit kun¬ 
nen we bereiken door met de interne klok 
van de Commodore TI steeds andere seed 
values te maken. Het bovenstaande pro¬ 
gramma komt er dan als volgt uit te zien: 

10 a=rnd(-ti) 

20 for x=0 to 3 
30 print rnd(l) 

40 next 

Als we het bovenstaande programma run¬ 
nen, krijgen we steeds een andere rij ge¬ 
tallen. Regel 10 zouden we ook kunnen 
veranderen in a=rnd(0). Dit is namelijk 
precies hetzelfde als a=md(-ti). Als het 
getal 0 aan RND wordt meegegeven, ge¬ 
nereert de computer zelf een seed, aan de 
hand van de interne klok. 

We hebben al gezegd dat RND een getal 
tussen de 0 en 1 geeft. Als we gehele 
waarden willen hebben tussen bijvoor¬ 
beeld de 0 en de 6, moeten we het volgen¬ 
de intypen: 

PRINT INT(RND(1)*6)) 

Let wel, het getal 6 zelf zal nu nooit voor¬ 
komen en het getal 0 wel. Als we echt 
waarden van 1 t/m 6 willen hebben, moe¬ 
ten we nog 1 bij de gegeven waarden op¬ 
tellen. 

Een Basic programmeur kan gebruik ma¬ 
ken van de hierboven beschreven RND 
funktie. In machinetaal is het veel lastiger 
om pseudo random getallen te maken. In 
Commodore Info no.3, april/mei 1989 
hebben we reeds uitgelegd hoe in machi¬ 
netaal een dergelijke reeks getallen kan 
worden gemaakt. We zullen hieronder 
deze methode kort herhalen. 

In machinetaal kan natuurlijk de ROM 
routine van RND worden aangeroepen, 
maar er is een makkelijkere en snellere 
manier. Er kan een rij getallen via de ge- 
luidschip van de Commodore worden 
gegenereerd. De golfvorm van geluidsre- 
gister kan namelijk worden uitgelezen in 
adres 54299. Als we nu ruis als golfvorm 
nemen, kan dit adres gebruikt worden als 
pseudo random generator. De frekwentie 
van de ruis moet hoog worden gekozen 
voor een goede werking van dit adres als 
een pseudo random generator. De ADSR 
en het volume hoeven overigens niet te 
worden ingesteld, omdat deze geen in¬ 
vloed hebben op de golfvorm. De getallen 
die op deze manier worden gegenereerd, 


liggen uiteraard tussen de 0 en 255. We 
geven een voorbeeld programma in as- 
sembly: 

Mnemonics Kommentaar 
lda $d418 
ora #$80 

sta $d418 /schakel stem 3 uit 
lda #$ff 

sta $d40f ;hoge frekwentie 

lda #$80 

sta $d412 ;ruis 

rts 

Na het uitvoeren van bovenstaand pro¬ 
gramma, kan adres 54299 worden uitge¬ 
lezen voor het verkrijgen van pseudo ran¬ 
dom getallen. Dit kan gedaan worden met 
lda $d41b. Overigens wordt in de eerste 3 
regels code stem 3 uitgeschakeld, zodat 
stem 1 en 2 nog gewoon te gebruiken zijn 
voor muziek. Dit uitschakelen van stem 3 
wordt bereikt door bit 7 van adres 54296 
aan te zetten. 

We hebben al opgemerkt dat bij een aan¬ 
roep van de funktie RND, de computer 
niets anders doet dan het invullen van een 
formule. De uitkomst van de formule is 
dan zogenaamd een willekeurig getal. 
Door de formule goed te kiezen, zullen de 
getallen uniform verdeeld zijn over het 
interval 0 tot 1. Dit betekent dat als we de 
getallen bijvoorbeeld omrekenen naar ge¬ 
tallen van 0 tot 5, dat de 1 relatief even 
vaak voorkomt in de reeks gegenereerde 
getallen als de 0, 2, 3, 4 en 5. Dit in ver¬ 
gelijking met het opwerpen van een dob¬ 
belsteen. Als we 100 keer een dobbel¬ 
steen gooien, zal blijken dat de 2 onge¬ 
veer even vaak bovenkomt als de 1,3, 4, 
5 en 6. Daarbij moeten we wel even aan¬ 
tekenen dat het gooien van een dobbel¬ 
steen geen toevalsproces is. Als we alle 
faktoren zouden kennen (zoals kracht van 
het opwerpen, wrijving van de lucht, 
veerkracht van de tafel etc.), dan zou pre¬ 
cies voorspeld kunnen worden wat de uit¬ 
komst zal zijn. 

We keren nog even terug naar de formule 
in de computer. We kunnen de lijst getal¬ 
len die de computer genereert, beïnvloe¬ 
den door steeds andere beginwaarden, 
seed values, te nemen. Voor het genere¬ 
ren van de lijst getallen zelf wordt vaak de 
lineaire congruentie methode gebruikt. 
Het volgende getal in de reeks wordt dan 
berekend met behulp van de volgende 
formule: 

X(I+1) = (A*X (I) modulo C) + B 

Daarbij zijn A, B en C constanten. Verder 
levert (X modulo Y) de rest van de gehele 
deling X/Y. In Basic is (X modulo Y): X 
- INT(X/Y)*Y. Er moet ook een seed 
worden gekozen. We stellen X(0) gelijk 
aan de seed. X(l) kan dan met boven¬ 
staande formule uit X(0) worden bere¬ 
kend. We geven nu een programma die de 
formule implementeert. 


5 rem pseudo random 1 

6 rem formule: x(i+1)=(121*x(i) 

modulo 99) + 1 

10 s=7 

20 for x=0 to 9 
30 gosub 1000:print r 

4 0 next:end 

999 rem subroutine voor getal 

1000 a=int((s*121)/99)*99 
1010 s=s*121-a+l 

1020 r=k/100:return 

In regel 10 wordt de seed value gedefini¬ 
eerd. Na een aanroep van de subroutine 
op regel 1000, bevat de variabele r een 
getal tussen 0 en 1. Het bovenstaande pro¬ 
gramma print 10 pseudo random getallen 
op het scherm. Het nadeel van het boven¬ 
staande programma is, dat de reeks getal¬ 
len die gemaakt wordt al gauw repeteert. 
Het volgende programma heeft een com¬ 
plexere formule, waardoor er een betere 
rij getallen gegenereerd wordt. 

5 rem pseudo random 2 ************* 

10 s=7:gosub 100:rem init 

20 for i=0 to 100 

30 gosub 200:rem bereken getal 

40 print r;:next:end 

99 rem init ************************ 

100 dim a(54) :a(0)=s 
110 ri=0 : for i=l to 54 

120 pl=int(31/100):p0=31-pl*100 
130 ql=int((a(i-1)+1)/100) :q0=(a(i-l) 
+1)-ql*100 
140 jl=p0*ql+pl*q0 

150 jl=(jl-int(jl/100)*100)*100+p0*q0 
160 a(i)=jl-int(jl/10000)*10000:next 

199 rem bereken getal 
***************** 

200 ri=ri+l-int((ri+1)/55)*55 
210 pl=ri+23-int((ri+23)/55)*55 
220 ql=ri+54-int((ri+54)/55)*55 
230 a (ri) =a (pi) +a (ql) -int ( (a (pi) 

+a(ql))/10000)*10000 
240 r=a(ri)/10000:return 

Het bovenstaande programma bevat twee 
subroutines. De eerste begint op regel 
100. Deze moet een keer worden aange¬ 
roepen, en initialiseert een array met 
pseudo random getallen. Daarbij wordt de 
seed value s gebruikt. Telkens na een aan¬ 
roep van de tweede subroutine, die op re¬ 
gel 200 begint, bevat de variabele r een 
pseudo random getal. 

Als laatste geven we nog de adressen 
waar de seed value van de RND funktie 
wordt opgeslagen. Dit zijn de adressen 
139-143. 

Alle voorbeelden die we hebben gegeven 
om een reeks willekeurige getallen te ver¬ 
krijgen, waren geen echte random gener¬ 
ators. Overigens, als de quantum ruis van 
een transistor wordt versterkt en gedigita¬ 
liseerd, dan garanderen de huidige wetten 
van de quantum mechanica, dat de string 
van nullen en enen niet reproduceerbaar 
en voorspelbaar is. De vraag is of dat zo 
blijft. 

Hylke Sprangers & Michel de Boer 
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Softworks 


A l meer dan een jaar loopt Peter 
Boncz, cursus over de machi¬ 
netaal van GEOS. De negende af¬ 
levering zal net als de tiende gaan 
over de hulpmiddelen die de pro¬ 
grammeur ten dienste staan. 

Aflevering negen en tien zijn geheel ge¬ 
wijd aan de hulpmiddelen die GEOS de 
programmeur biedt, om zelf program¬ 
ma’s voor de GEOS-omgeving (‘environ¬ 
ment’) te ontwikkelen en te onderhouden. 
Deze hulpmiddelen worden verstrekt 
door het GeoProgrammerp-akket, inmid¬ 
dels al ruim meer dan een jaar in omloop. 
Toen het pakket uitkwam is er ook een 
bespreking over verschenen in de Cl van 
de hand van Bert Venema. Deze beschrij¬ 
ving was, met respect gezegd, voor de 
programmeurs onder de lezers nogal op¬ 
pervlakkig. Het lijkt mij dan ook zeker 
niet dubbelop om eens diepere aandacht 
aan GeoProgrammer te schenken, te meer 
omdat dit een onmisbaar hulpmiddel voor 
lezers van deze cursus is geworden. 

Het GeoProgrammer-pakket bestaat uit 
drie delen: de GeoAssembler, de GeoLin- 
ker en de GeDebugger. De GeoAssem¬ 
bler is het hart van het systeem: het bevat 
de assembler met enkele bijgeleverde 
standaard-files. Een assembler is een pro¬ 
gramma dat assembly vertaalt naar ma- 
chinecode. Assembly op zijn beurt is ma¬ 
chinetaal, gemengd met symbolische na¬ 
men voor adressen (die door de gebruiker 
zelf gedefinieerd kunnen worden) en (ook 
zelf gedefinieerde) macro’s. Als een as- 
sembly-programma door een assembler 
heengehaald wordt, dan ontstaat er de zo¬ 
genaamde ‘relocatable’-code (ook wel 
.rel - code). De naam ’relocatable’ zegt 
het al: het programma kan van plaats in 
het geheugen veranderd worden en staat 
nog nergens ’vast’. De Linker (to link = 
aan elkaar koppelen) heeft tot taak ver¬ 
schillende stukken .rel-code op de juiste 
wijze in elkaar te voegen en op de goede 
plaats in het geheugen te zetten. De Lin¬ 
ker maakt van verschillende .rel-files een 
uiteindelijke - uitvoerbare- file. Hiervoor 
wordt gebruik gemaakt van een speciale 
link-file, waarin de programmeur vertelt 
welke .rel-files op welke manier aan el¬ 
kaar gelinkt moeten worden. Dit hele pro¬ 
ces hebben we al in de vorige afleverin¬ 


gen van de cursus gezien: doorgaans was 
er 1 assembly-file, en 1 header-file, die 
beide door de GeoAssembler moesten. 
Vervolgens was er steeds een Link-file, 
waarin de namen van de .rel files stonden, 
en de geheugenplaatsen waar ze terecht 
moesten komen. Nog geen echt nieuws 
onder de zon dus. 

Het derde programma, de GeoDebugger, 
is tot nu toe buiten beeld gebleven, en dat 
is ook logisch, want de hier geLISTe pro¬ 
gramma’s horen al te werken (?). Bij Ber- 
kely Softworks gaan ze uit van de ‘assem- 
ble-link-crash-debug’-cyclus voor pro- 
gramma-ontwikkeling: assembleren, lin¬ 
ken, testen (=crashen), en repareren met 
de debugger. Omdat, zoals gezegd, in de 
cursus het gebruik van de GeoDebugger 
niet aan de orde is, zal ik hier slechts zeer 
summier op ingaan, en dat in de volgende 
aflevering. In deze aflevering zal ik me 
uitsluitend bezighouden met de GeoAs¬ 
sembler. 

GeoAssembler 

De GeoAssembler is één van de meest 
uitgebreide assemblers die voor de com¬ 
modore 64 beschikbaar zijn. Hij assem¬ 
bleert de assembly-code in 2 stappen 
(passes). In de eerste stap worden alle na¬ 
men (labels) die opduiken in het program¬ 
ma in een tabel gezet. In de tweede stap 
begint de computer van voren af aan, en 
kunnen evt. foutboodschappen gegeven 


worden als bepaalde waarden verkeerd 
gebruikt worden. Hierbij interessant te 
vermelden is de interne variabele ‘Passi ’, 
die waar (1) is als de assembler met de 
eerste stap bezig is, en onwaar (0) is als 
de assembler met de tweede stap bezig is. 
Geen paniek: later zal ik een poging doen 
om duidelijk te maken wat dit alles te be¬ 
tekenen heeft. 

De normale handelwijze van een pro¬ 
grammeur is als volgt: eerst wordt het 
programma in GeoWrite geschreven. Pas 
als het af is, start men de GeoAssembler 
op en wordt de GeoWrite-file geassemb¬ 
leerd. Naast de gewone C-64 opcodes; 
kreten als Tda’, ‘sta’ en ‘jsr’ (die bekend 
verondersteld worden), komen bij de 
GeoAssembler de volgende begrippen 
kijken: labels, constanten, getallen, ope¬ 
ratoren, (deze vier vormen gecombi¬ 
neerd expressies) en tot slot zg. ‘directi- 
ves’. De term ‘directives’ is overigens 
volstrekt uitwisselbaar met de term ‘com- 
mandos’. Ik zal al de genoemde begrip¬ 
pen bespreken, te beginnen met het vol¬ 
gende voorbeeld: 

; "5 x 9 = 42" says Peter to 
the artvark 

Zoals u waarschijnlijk al gevat heeft gaat 
het hier om commentaar. Na een punt¬ 
komma wordt de rest van de regel in Geo- 
Assembly genegeerd. Op naar het volgen¬ 
de voorbeeld: 
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label1: lda #10 

nop 

jmp label1 

label2: nop 

nop 


Labels definiëren 

Een label is een naam met daarachter een 
dubbele punt. Let wel op: de naam mag 
maar max. 8 tekens lang zijn! De rest van 
de naam wordt er als hij langer is gewoon 
afgehakt. Had ik ‘labeltje 1’ en ‘labeltje2’ 
als voorbeeld genomen, dan zou GeoAs- 
sembler hierop een ‘dubbele labeldefini- 
tie’-fout gegeven (‘labeltje 1’ en ‘label- 
tje2’ worden namelijk allebei ‘labeltje’). 
Vaak is het zo dat je zoveel labels nodig 
hebt, dat het moeilijk wordt ze namen te 
geven. Bovendien betreffen dat vaak la¬ 
bels die heel erg gewone dingen beschrij¬ 
ven, bijvoorbeeld Tus_l:\ of ‘hoogtelle- 
rop:’. Als je zo’n label later weer defini¬ 
eert, dan komt er natuurlijk weer een dub¬ 
bele labeldefinitie-fout. Om dit ongemak 
op te lossen zijn de zogenaamde lokale- 
labels ontwikkeld, onbelangrijke labeltjes 
voor onbelangrijke dingen. En wat dies 
meer zij: de assembler is hun bestaan al¬ 
weer vergeten na het tegenkomen van een 
echt label. Om dit even te illustreren: 

labell: lda #10 

1$: nop 

jmp labell 
label2: nop 

1$: nop 

Lokale labels zijn altijd getallen en eindi¬ 
gen zoals u ziet altijd met $. Er is hier ook 
geen sprake van een dubbele definitie- 
fout, want de assembler is het bestaan van 
de eerste ‘ 1$: ’ al weer vergeten als hij bij 
de tweede komt. Een nadeel van dit ver¬ 
geten is natuurlijk dat je alleen tussen de 
eerste twee omliggende labels gebruik 
kunt maken van de lokale labels. Tot slot 
is er nog een lastig puntje: normaal wor¬ 
den alle namen van labels ook uitgevoerd 
naar de andere files waaraan de program- 
ma-file later in het link-proces gekoppeld 
wordt. Dit kan vermeden worden met het 
commando ‘.noglb’. Vanaf het punt waar 
dit staat worden nieuw gedefinieerde la¬ 
bels niet meer aan de linker bekendge¬ 
maakt. Om weer op de situatie met wel 
label-uitvoer over te gaan is er het com¬ 
mando ‘.glb’. Standaard, dus zonder van 
deze twee commando’s gebruik te maken 
staat GeoAssembler op de ‘.glb’-stand, 
dus wórden alle labels naar de linker 
‘geëxporteerd’. 

Constanten 

Naast labels kan een programmeur ook 
constanten invoeren. Dit werkt vaak ver¬ 
helderend voor iemand die uw assembly 


listing probeert te lezen (zoals uzelf). 
Constanten definiëren gaat zo: 

waar = 1 
fout = 0 

Let wel op bij het gebruik van deze con¬ 
stanten. Als een constante een waarde 
voorstelt moet er altijd een hekje (#) voor, 
als een constante een adres voorstelt niet. 
Dus: 

lda #waar wordt: lda #1, 
en 

lda waar wordt: lda $01 

Om het allemaal wat moeilijker te maken 
kunnen constanten op twee manieren ge¬ 
definieerd worden, ten eerste zoals hier¬ 
boven gedemonstreerd is met een enkele 
‘=’. Het is ook mogelijk met een dubbele 
‘=’, dus ‘==’. Het verschil zit hem erin, of 
later de GeoDebugger de constante kent. 
Constanten die met ‘=’ gedefinieerd zijn 
kent hij niet, diegenen die met ‘==’ gede¬ 
finieerd zijn wel. Maar hoe zit het dan 
met de GeoLinker?, vraagt u zich mis¬ 
schien af (waarschijnlijk echter niet). 
Standaard kent de GeoLinker alle gedefi¬ 
nieerde constanten, dit is uit te zetten met 
‘.noeqin’ en weer aan met ‘.eqin’. Dit al¬ 
les net zoals het met ‘.glb’ en ‘.noglb’ (bij 
de labels) ging. 

Opcodes en operanden 

Met opcodes worden de termen ‘lda’, 
‘stx’ e.d. bedoeld. De variabele die er 
vaak na komt heet de operand. Deze ope- 
rand heeft vele verschijningsvormen, af¬ 
hankelijk van het soort adressering. De 
GeoAssemler ondersteunt die natuurlijk 
allemaal. Ze hebben mooie engelse na¬ 
men: 

implied: (niets) 

relative: adres 

accumulator: a 

absolute: 

zp-adress 

absolute indexed X: 

zp-adress,x of adress,x 
absolute indexed Y: 

zp-adress,y of adress,y 
indexed indirecr: 

(zp-adress,x) 
indirect indexed: 

(zp-adress),y 

Operatoren en expressies 

Getallen kunnen in assembly een waarde 
of een adres betekenen. In de GeoAssem¬ 
bler gelden dezelfde regels voor beide 
soorten getallen. Expressies zijn combi¬ 
naties van getallen (of constanten of 
adreslabels, dat is allemaal hetzelfde) en 
operators. Een operator is bijvoorbeeld 
het ‘+’ teken. Een expressie is dan dus 


bijv.: ‘$10 + 3’. Eerst definieer ik nu de 
getallen, er zijn 5 getal-modes: 

1) decimal, beginnend met cijfer of #, be¬ 
staand uit cijfers, bijv. 91; 

2) hexadecimal, beginnend met $, be¬ 
staand uit cijfers of a,b,c,d,e of f, bijvoor¬ 
beeld $la (^decimaal l*16+a=26, want 
a=10); 

3) octal, beginnend met ?, bestaand uit 
cijfers 0-7, bijvoorbeeld ?76 (=decimaal 
7*8+6=63); 

4) binary, beginnend met %, bestaand uit 
nullen en enen, bijv. % 1001000 ^deci¬ 
maal 128+16=144); 

5) character, beginnend en eindigend met 
’, en bestaand uit karakters, bijv. ’a’. 

In illustratie 1 ziet u een overzicht van 
alle operators die in berekeningen ge¬ 
bruikt kunnen worden. Het veld ’prece- 
dence’ geeft aan wie voorrang heeft op 
wie, waarbij het laagste getal steeds voor¬ 
rang heeft. In berekeningen kunt u echter 
alles waarvan de beschrijving begint met 
Togical’ niet gebruiken. Dit zijn opera¬ 
tors voor ’logical’ expressions. Even nog 
wat voorbeelden van gewone expressies: 

[4* (screen + $500 + %1001001) 

| 255 

100+lus_l / $16 
#$01 // 6 

Logische expressies 

In logical expressions, slordig ook wel 
‘Boolean’ expressions genoemd, draait 
alles om ‘ware’ of ‘onware’ beweringen. 
Er zijn dus 2 waarden: ‘waar’ of ‘on¬ 
waar’, oftewel 1 of 0. Deze elementen 
zullen een ieder onder u die ook in PAS¬ 
CAL, MODULA of C programmeert, be¬ 
kend in de oren klinken. Maar wat heeft 
dit nu met assembleertaal te maken? Der¬ 
gelijke boolean-expressies komen toch 
alleen aan de orde als er ook iL.then be¬ 
weringen zijn, en die heeft machinetaal 
niet. Dat is ook wel zo, maar toch ook 
weer niet. de GeoAssembler heeft name¬ 
lijk de ‘.if’, ‘.elif’ en ‘.endif’ comman¬ 
do’s. Het gaat bij deze keuzecommando’s 
echter NIET om beslissingen die geno¬ 
men moeten worden tijdens dat het pro¬ 
gramma DRAAIT, maar om beslissingen 
terwijl het programma VERTAALD 
wordt. Het gaat eigenlijk ook maar om 1 
soort beslissing: behoort het stukje code 
na deze if tot het programma of niet. Om 
een voorbeeld te geven: 

.if (1=0) 
lda #10 
.elif (2=0) 
lda #20 

. else 
lda #34 
.endif 
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Conditionele code 

Aangezien 1 niet gelijk is aan 0 of 2 zal 
de GeoAssembler in het bovenstaande 
stukje code ‘lda #34' vertalen. De code 
die GeoAssembler ziet is dus afhankelijk 
van de waarde van de expressie bij de ‘if’- 
s. Daarom spreekt men wel van ‘conditio- 
nal code’ oftewel conditionele code. Het 
algemene principe is dus dat er eerst een 
‘if’-commando komt met daarachter op 
dezelfde regel een logische expressie. De 
regels daarna tot er een ‘.endif’ of een 
\elif’ (else if) of een ’.else’ komt, zijn de 
conditionele code. Een ander voorbeeld, 
met de eerder genoemde variabele Passi: 

.if Passi 
.include GeosSym 
.endif 

Voor wie het nog niet weten mocht: het 
commando '.include filenaam’ voegt de 
file ‘filenaam’ op de plaats van het ‘.in¬ 
clude’-commando in de file in (wat ‘file¬ 
naam’ ook moge bevatten). Het boven¬ 
staande voorbeeld heeft tot gevolg dat de 
file GeosSym alleen bij de eerste pass ge- 
include wordt, immers: alleen dan is 
Passi waar. De standaard-file GeosSym 
bevat alleen constanten en het weglaten 
van deze file betekent een grote tijdsbe¬ 
sparing bij het assembleren. Maar dat ter¬ 
zijde. 


Sector-directives 

De GeoAssembler kent 3 soorten geheu- 
gensectoren: 

1) psect - voor de programmacode; 

2) ramsect - hier kunnen datalabels gede¬ 
clareerd worden; 

3) zsect - ook voor data, maar dan alleen 
in de zero-page ($0000- $00ff). 

Deze scheiding in 3 gebieden wordt con¬ 
sequent doorgevoerd, pas tijdens het link- 
proces worden de preciese geheugen- 
plaatsen vastgelegd, en dit gebeurt voor 
psect en ramsect apart. Meer hierover in 


het volgende deel, wanneer het over de 
GeoLinker gaat. Waar de zsect ligt staat 
natuurlijk altijd vast, en deze hoeft dan 
ook niet tijdens het link-proces van een 
geheugenplaats voorzien te worden. Om 
in de drie gebieden te kunnen werken zijn 
er 3 commando’s: ‘.psect’, ‘.ramsect’, en 
‘.zsect’. De code na een van deze com¬ 
mando’s wordt dan opgevat als resp. 
psect, ramsect of zsect-code. Na ‘.psect’ 
komt gewoon het programma. De directi- 
ves ‘.ramsect’ en ‘.zsect’ zijn echter spe¬ 
ciaal. 

Ramsect 

Deze sector is het datagebied, waar de 
programmeur variabelen en andere data 
op kan slaan. Na ‘.ramsect’ kan de ge¬ 
bruiker dan beginnen met data-gebieden 
in gebruik te nemen: 

.ramsect 

variabell: .block #3 

variabel3: .byte #255,#1 

variabel4: .word #255,#1 

De namen ‘variabell’, ‘variabell’ en ‘va¬ 
riabel’ kunnen nu in het psect deel ge¬ 
bruikt worden. Variabell wijst naar het 
begin van de ramsect, variabel3 naar het 
begin+3, en variabeM naar het begin+5. 
Voorts zijn er 3 commando’s gebruikt. In 
de eerste plaats is dat ‘.block x’, dit com¬ 
mando doet helemaal niets, het neemt al¬ 
leen x bytes in beslag, in het bovenstaan¬ 
de geval dus 3. Het ‘.byte x’ commando 
slaat de meegegeven getallen als een byte 
achter elkaar op. Het commando ‘.word 
x’ slaat de meegegeven waarden als 
words op, dus als getallen van 2 bytes, 
waarbij het eerste getal de low-byte is , en 
het tweede de high-byte is. 

Het uiteindelijke getal wordt dus verkre¬ 
gen door low-byte+high-byte*256 te 
doen. Het voorbeeldje zou het volgende 
tot resultaat gehad hebben: 

variabell = ramsectbegin 
variabel3 = ramsectbegin+3 


variabel4 = ramsectbegin+5 
en geheugenplaats, waarde: 
$ramsectbegin+0, ?? 
$ramsectbegin+l, ?? 

$ ramsectbegin+2, ? ? 
$ramsectbegin+3, 255 
$ramsectbegin+4, 1 
$ramsectbegin+5, 255 
$ramsectbegin+6, 0 
$ramsectbegin+7, 1 
$ramsectbegin+8, 0 
(?? betekent: onbekend) 

Overigens is het ook mogelijk om karak¬ 
ters achter ‘.byte’ en ‘.word’ te plaatsen, 
dit gaat bijvoorbeeld zo: 

.byte "hallo allemaal",0 
en heeft tot resultaat dat de tekst ‘hallo 
allemaal’ byte voor byte in het geheugen 
gezet wordt, afgesloten met een 0. 

Zsect 

Zsect werkt eigenlijk precies hetzelfde als 
‘.ramsect’, met één verschil: het heeft al¬ 
leen betrekking op data gelegen in de 
zero- page. Omdat de plaats al vastligt 
(zero-page) is .zsect niet relocatable, en 
hoeft het niet bij het linken ergens in het 
geheugen vastgepind te worden. De offset 
in de zeropage wordt daarom direct achter 
het commando gezet, dus: ‘.zsect x’. Dan 
is x (een getal tussen 0 en 255) het begin 
van de zsect. Voor de rest werkt alles het¬ 
zelfde als met ’.ramsect’. 

Tot slot 

Dit artikel begint nu al behoorlijk volumi¬ 
neus te worden, en het is dus tijd om te 
stoppen. Een overzichtje van alle bespro¬ 
ken GEOS directives staat in illustratie 2. 
Illustratie 3 bevat een tabel die ik eigen¬ 
lijk in het tweede deel van deze cursus al 
had willen plaatsen, namelijk een over¬ 
zicht van alle GEOS-routines. In de vol¬ 
gende aflevering, dat is alweer de tiende, 
zal ik verdergaan op dit onderwerp. Dan 
komt namelijk het staartje van de GeoAs¬ 
sembler aan bod, met daarin o.a. de vori¬ 
ge keer al beloofde macro’s en headers. 
Tevens zullen dan de andere delen van 
het GeoProgrammer-pakket, namelijk de 
GeoLinker en GeoDebugger aan de orde 
komen. Ook is er dan aandacht voor de 
speciale GEOS-files GeosSym en Geos- 
Mac. Tot de volgende keer dus! 

Peter Boncz 
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A angezien Bert Venema voor 
langere tijd het ruime sop (let¬ 
terlijk, hij werkt bij de marine, red.) 
heeft gekozen, neem ik de GEOS 
INFO-rubriek voor een tijdje van 
hem over. Er was deze maand een 
behoorlijk aantal reacties van le¬ 
zers op allerlei actuele GEOS-za- 
ken. Beginnen we bij Tim Jansma, 
hij vuurt werkelijk een indrukwek¬ 
kende serie vragen op mij af. 

Het is inderdaad waar dat de applicaties 
Deskpack Plus, Fontpack Plus, Geocalc, 
Geochart, Geopublish en GeoProgram- 
mer ook voor versie 1.3 werken. Sterker 
nog: ze werken ook voor versie 1.0, 1.2 
en 2.0! Op de vraag of Geos versie 1.3 
ergens omgeruild kan worden in versie 
2.0 is het antwoord : ja, dit zal waar¬ 
schijnlijk op de volgende Cl-beurs weer 
mogelijk zijn. Je kan het natuurlijk ook 
proberen bij de firma die je Geos 1.3 ver¬ 
kocht heeft. Dit laatstgenoemde adres is 
waarschijnlijk ook de beste plaats om 
heen te gaan om je kapotte bootdisk weer 
gerepareerd te krijgen. 

PageFox 

Tenslotte vraagt Tim ons nog waar het 
’DTP’-pakket PageFox te krijgen is. De 
GEOS-rubriek is niet echt het podium 
voor zulke vragen, maar goed, mijn ad¬ 
vies is om eens rond te kijken bij bijv. Cat 
en Korsh, hier voorin het blad. 

RAM 1764 

C. Varkevisser uit Sassenheim stuurde 
ons 2 pagina’s op met tips, trucs, wetens¬ 
waardigheden, filosofieën, etc.. In de eer¬ 
ste plaats vertelt hij ons dat de foto’s bij 
het artikel over de RAM 1764 niet de ge¬ 
noemde REU voorstelden, maar een 
Commodore 128 metinsteekmodem! Dat 
is inderdaad een vergipsinkje van de CL 
(Het genoemde artikel was overigens niet 
van Bert of mij, en had slechts zeer zijde¬ 
lings met GEOS te maken.) Zoals bekend 
(of misschien ook niet) is het erg moeilijk 
om in Nederland aan de commodore ge- 
heugenuitbreidingen (REU’s), zoals de 
1764, te komen. 

C. Varkevisser is echter voor geen klein¬ 
tje vervaart en heeft daarom zijn oplos¬ 
sing in het buitenland gezocht. Wat dus 



gedaan? Een duits computerblad gekocht 
en in de advertentiepagina’s gekeken. 
Een firma, genaamd DATA 2000 bleek 
bereid te zijn het produkt (een REU dus) 
te leveren voor het vriendelijke prijsje 
van 100 DM. Na het opsturen van een 
cheque met dit bedrag en het achteraf be¬ 
talen van ƒ 21,50 aan invoerrechten bleef 
er toch een aardige deal over. 

Zeker omdat de verkoper van V&D, die 
dhr. Varkevisser eerst geconsulteerd had, 
weliswaar gemeld had dat het produkt 
niet voorradig was, maar dat er toch on¬ 
geveer zo’n ƒ280,- voor neergeteld zou 
moeten worden. Al met al weer een be¬ 
wijs dat het erg nuttig kan zijn om eens 
over de grens te kijken, zeker omdat C. 
VarkeVisser ons voorrekent dat het ge¬ 
middelde GEOS-pakket bij onze ooster¬ 
buren stukken goedkoper is dan hier of in 
Engeland. Dit soort zaken is echter niet 
alleen rozengeur en maneschijn, er kun¬ 
nen van allerlei dingen misgaan (het op¬ 
sturen van een cheque), zeker als je de 
duitse taal niet goed beheerst. 

DeskTop 

Cools Patrick uit België meldt ons ‘dat hij 
het toetsenbord van zijn 64 wel wat 
warmgehouden heeft'. Dit resulteerde on¬ 
der andere in de tip om het DeskTop-pro- 
gramma op de datadisk te zetten. Hij gaat 
ervan uit dat u met 2 drives werkt. Dus op 
de bootdisk hoeft volgens hem geen 


desktop te staan. Hier heeft hij gelijk in: 
als GEOS de DeskTop op drive 8 niet 
vindt, en ook drive 9 is in gebruik, dan 
wordt eerst hier nog gezocht alvorens een 
error te rapporteren. Cools (ik hoop wer¬ 
kelijk dat ik het goed begrepen heb, en ik 
je naam nu niet omdraai) stipt bovendien 
nog een heikel puntje aan; een oude koe 
uit de GEOS-sloot. 


Heeft U een vraag, idee of een reactie? 
(betreffende GEOS, dit is niet lieve 
Lita) 

stuur hem naar: 

GEOS-INFO rubriek 
Postbus 43048 
1009 ZA Amsterdam 


CTRL-H 

Het gaat om het hardcopy-programma, u 
weet wel, uit de vierde en vijfde afleve¬ 
ring van de Cl. De CTRL-H routine die 
na het indrukken van CTRL-H het ’hard- 
copy.prg’ programma moet starten werkt 
volgens hem niet. Misschien ligt dit aan 
het feit dat hij het verkeerde deel van de 
listing gebruikt, deze verschilde voor ver¬ 
sie 1.x en versie 2.0. Een andere, waar¬ 
schijnlijkere, oorzaak is een klein foutje 
in de listing van hardcopyLst (uit de vier¬ 
de aflevering). Na ‘.byte "hardcopy.prg" ’ 
had nog ‘,0’ moeten staan. Als er dan 
voor gezorgd wordt dat er inderdaad een 
programma, met de naam ’hardcopy.prg’ 
(de listing uit de vijfde aflevering) op de 
disk staat, (op het moment dat er op 
CTRL-H gedrukt wordt), dan moet het 
werken. 


GEOS PD 2 

In het vorige nummer van de Cl is de 
aankondiging van de GEOS PD Disk 2 
een beetje de mist ihgegegaan. We 
proberen het opnieuw: 

Bestel nu de GEOS PD Disk 2 door 
ƒ 12,- over te maken op girorekening: 
3157656, t.n.v, Infolist Hüizén onder 
vermelding van: ‘GEOS PD 2’ 
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Geos 


Het netelige feit zit hem echter hierin dat 
in sommige gevallen de CTRL-H routine 
inderdaad problemen kan veroorzaken. 
GEOS staat een dergelijke constructie na¬ 
melijk niet toe. Er is geen mogelijkheid 
om een programaatje ergens in het geheu¬ 
gen te houden dat continu kijkt of er een 
toets ingedrukt is. GEOS kan maar met 1 
programma tegelijk werken en kent geen 
geheugenbescherming. En dat is nu juist 
wat we nodig hadden. De CTRL-H routi¬ 
ne maakt gebruik van een stuk geheugen 
dat alleen in gebruik is als er met bijzon¬ 
dere drives gewerkt wordt. Als hiermee 
gewerkt wordt, dan is er echter een goede 
kans (zo’n 100%) dat de zaak in de soep 
loopt. Een oplossing is dan het ‘hardco- 
py.prg’-programma om te werken tot een 


DESK_ACC, maar dan kunnen er alleen 
hardcopies gemaakt worden op momen¬ 
ten dat een DESK_ACC gestart kan wor¬ 
den, dus niet op ieder moment en niet in 
iedere applicatie. En dat zijn nu juist ei¬ 
genschappen die voor een schermdump- 
programma van belang zijn. 

1541-dump 

Cools geeft ons verder een wijziging in de 
listing van de QuickTop (nu echt een hele 
tijd terug), die dit programma ook ge¬ 
schikt maakt voor 1.3 en 2.0. Een soort¬ 
gelijke wijziging heb ik al een paar maan¬ 
den terug doorgevoerd, en de QuickTop 
die nu op de PD-schijf staat, werkt met 
alle versies van GEOS. Als illustratie 
plaatsen we nog de listing van Coois Pa- 


trick voor een dump-programma. Dit is 
zijn bijdrage aan het besproken hardcopy - 
probleem. Het behelst een DESK AC- 
CESSORY genaamd 1541-dump, die bij 
aanroep een file 'dump' met daarin een 
hardcopy van het beeldscherm naar disk 
schrijft. Met deze file kan de gebruiker 
dan later doen wat hij of zijzelf wil (op 
een of andere manier uitprinten, naar 
GeoPaint halen, etc). Maar let op: ook 
deze ‘hardcopy mogelijkheid’ werkt al¬ 
leen maar op momenten dat een desk ac- 
cessory gestart kan worden! 

Peter Boncz 


NIEUW! - NIEUW! - NIEUW! - NIEUW! - NIEUW! 

Eindelijk uit: dé Nederlandse 

GEOS 2.0-basishandleiding 



Dit boek is speciaal geschreven voor hen die in dit boek aandacht besteed aan de andere 
werken met een Commodore 64/128 en het GEOS-applicaties zoals GeoCalc, GeoFile, 
geavanceerde besturingssysteem GEOS 2.0. GeoPublish en GeoChart. 

Het eerste Nederlandse boek voor de rechtge- Indien u GEOS op de manier gaat gebruiken 
aarde GEOS-gebraiker, die de mogelijkheden waarvoor het bedoeld is, zult u dit boek op zijn 
van dit pakket ten volle wil benutten. juiste waarde weten te schatten. 

Het boek beschrijft naast de werking van gm JB 0HI 

GEOS 2.0, uitvoerig het gebruik van de J Mm f 

Desktop, GeoPaint, GeoWrite en alle desk-ac- Ê ~ J 

cessoires. Tevens komen applicaties als Geo- J m M 

Spell en GeoMerge aan de orde. Verder wordt 


U kunt de GEOS 2.0 - basishandleiding bestellen door overmaking van het betref¬ 
fende bedrag (incl. verzendkosten) op gironummer 5641219 t.n.v. SALASAN Am¬ 
sterdam o.v.v. ’GEOS basishandieiding’. 

Dealer aanvragen welkom. 
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Commodore 


Basic miniatuurtjes 

Een rubriek van Alex van Maarschalkerwaart 


Gevraagd 

Basicminiatuurtjes 

Stuur al uw kleine, leuke, nuttige (Amiga en C64) program- 
matjes naar: 

Sala Communications, Postbus 43048, 1009 ZA Amster¬ 
dam o.v.v. MINIATUURTJES. 


Datum berekenen. 

Dit programma berekent de dag waarop een gegeven da¬ 
tum valt (bijvoorbeeld geboortedag). Wel moet de datum 
tussen 1900 en 2000 liggen. 

1 rem--datum berekenen-- 

2 rem--sven verstrepen— 

5 printchr$(147) 

10 print"tik[SPACE]datum[SPACE]in[SPA 
CE] (dd, mm, j j) " 

20 inputd,m, j 
30 j=j-1900 
40 if m=lthen70 
50 if m=2then70 
60 gotolOO 

70 j=j-1:m=m+13:goto90 
80 m=m+l 

90 k=int(365.25*j) 

100 l=int(30.6*m) 

110 z=k+l+d+72926 
120 z=z/7-int(z/7) 

130 ifz=0thenl60 
140 z=int(z*7+.01) 

150 print"[SHIFT-CLR]" 

160 print"de ze[SPACE]datum[SPACE]valt[ 

SPACE]op[SPACE]een"; 

170 ifz=0thenprint"[SPACE]dinsdag":goto240 
180 ifz=lthenprint"[SPACE]woensdag":goto240 
190 ifz=2thenprint"[SPACE]donderdag":goto240 
200 ifz=3thenprint"[SPACE]vrijdag":goto240 
210 ifz=4thenprint"[SPACE]zaterdag":goto240 
220 ifz=5thenprint"[SPACE]zondag":goto240 
230 ifz=6thenprint"[SPACE]maandag":goto240 

240 print"**************************** 
****★★★★****" 

250 print"[SPACE]druk[SPACE]space[SPAC 
E]voor[SPACE]herbeginnen":goto2 6 0 
260 geta$:ifa$=""then260 
270 ifa$="[SPACE]"then5 

Programma beveiliging. 

J.D. Brugge uit België, heeft dit programma gemaakt om 
al zijn ideeën te beveiligen. 

Het creëert een programma op disk (voor tape wordt regel 
10 openl ,1,1 "compilel"), "COMPILE", dat het belangrijkste 
beveiligingswerk doet. 

Maak en save een programma,—In basic moet voor het 
eind v/h prg (end,new,load"andere prog",...)poke 43,1 
staan. 


Load "COMPILE",8,1-Poke 43,34-Load "prog.naam",8 
(niet,8,1!!)—Poke43,1 — Save"Anderenaam",8—Run om te 
testen. Als alles goed is, moet het programma nu normaal 
werken, met als enige verschil dat:Run/Stop(Restore) niet 
meer werken en bij List het volgende staat: 1989 sys 2006 
Text. 

0 rem * (c)1989 the demo master/corp 
against bad crackings 

1 rem-j.d.brugge- 

10 open 1,8,1,"compile!,p,w" 

20 fork=lto33:reada:print#l,chr$(a) ; : 
t=t+a:next:closel 

30 ift=2391thenprint"you[SPACE]can[SP 
ACE]try[SPACE]now,i'm";:end 
40 print"?data[SPACE]error-check[SPAC 
E]listing";:list 

50 open 1,8,15,"s:compile!":closel 
60 data 1,8,15,8,197,7,158,50,48,54,54 
70 data 32,84,69,89,84,,,,169,34,133, 

43,169,225 

80 data 141,40,3,32,89,166,76,174,167 


Directory. 

Dit programma is enkel bedoeld als voorbeeld van hoe op 
een eenvoudige wijze de directory uit te lezen is. 

Regel 10 opent de Dir als een bestand op disk (Dos inter- 
peteert dit als load"$"). 

De [rev-on] in 20 zorgt voor ’t reversed afdrukken van de 
header. 

De volgende regels lezen de tekens en zetten de Filenaam 
en prg-soort op het scherm. 

0 rem -directory- 

1 rem-j.d.brugge-- 

2 input"[SHIFT-CLR]geef[SPACE]het[SP 
ACE]devicenummer";dn:if dn <8goto2 

10 open l,dn,0,"$" 

20 print"[CTRL-2][SHIFT-CLR][CTRL-9]" 

;:poke 53281,0 

30 get#l, a$ : ifa$Ochr$ (34) anda$Ochr$ 

(199)goto30 

40 if a$=chr$(199)thenclosel:end 
50 printa$;:fork=lto25:get#l,a$:print 
a$ ;:next:print:goto30 

Schermgekte. 

Dat kleine programmeerfouten ook leuke gevolgen kunnen 
hebben, wil Kees Patijn uit Rotterdam ons met dit minia- 
tuur-programma duidelijk maken. 

Je kan het met Sys 828 opstarten. 

10 datal20,238,32,208,123,33,208,166, 
203,224,64,208,244,76,60,3,0:print 
chr$(147) 

20 fort=0tol6:reada:poke828+t,a:next 
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Amiga 


UGA’s Musical Enlightenment 

Software voor de kleine beurs 



U nited Graphic Artists, kortweg 
UGA, is al een tijdje bezig om 
goedkope, maar niet amateuristi¬ 
sche software aan de man te 
brengen. Rob Fonteine van UGA is 
niet alleen in Nederland druk be¬ 
zig, ook in het buitenland weten 
velen al van zijn bestaan. Doordat 
Rob zich veel in het buitenland be¬ 
weegt, heeft hij zo zijn contacten 
opgebouwd. Vanuit die contac¬ 
ten brengt Rob Fonteine in samen¬ 
werking met een Brit, het nieuws- 
magazine Newsflash op de markt, 
maar ook goedkope software van 
professionele alure. 

Het net nieuwe programma Music En¬ 
lightenment maakt deel uit van een serie 
Amiga programma’s, die zich qua moge¬ 
lijkheden kunnen meten met de vaak 
duurdere software van andere producen¬ 
ten. UGA wil door deze programma’s 
ook veel nieuw talent een kans geven, die 
bij de grotere producenten geen kans krij¬ 
gen. 

Nederlands produkt 

Musical Enlightenment werd geschreven 
door de Nederlandse programmeur Niek 
Luuring en is voorzien van een Neder¬ 
landstalige handleiding. Het programma 
is verdeeld in vier secties. Met de song- 
module worden de noten ingevoerd en het 
gewenste instrument gekozen. Dit wordt 
gedaan in zogenoemde sporen. Voor ie¬ 
dere Amiga stem (totaal twee links en 
twee rechts) staat er één spoor ter be¬ 
schikking, zodat ook andere instrumenten 
aan de hoofdmelodie kunnen worden toe¬ 
gevoegd. In deze sectie is het ook moge¬ 
lijk de stemmen aan/uit te zetten en kan 
het audio-filter worden uitgeschakeld; 
daardoor zijn er meer hoge tonen hoor¬ 
baar. Dit is bij een aantal muziekdemo’s 
en programma’s ook zichtbaar als de po- 
wér-LED uitgaat. Als extra mogelijkheid 
kan de snelheid van het afspelen in de 
song-module worden veranderd. 


Instrumenten 

De instrument-module is het gedeelte 
waar met de instrumenten geëxperimen¬ 
teerd kan worden. Met de muis kunt de 
attack, decay, sustain en release verande¬ 
ren, zodat het instrument precies zo klinkt 
als de bedoeling is. Deze functies zijn 
vergelijkbaar met die in Eagis Sonix. In 
deze sectie kan ook een effect worden 
verbonden met een instrument. Zo zijn 
bijvoorbeeld een watereffect of een echo 
mogelijk. dat aan één bepaald instrument 
kan worden gekoppeld. 

Effecten 

Met de effecten-module kunnen zelf ef¬ 
fecten worden samengesteld met behulp 
van diverse golfvormen. De belangrijkste 
effecten zijn: vibrato en tremolo. Ook is 
het mogelijk op een toetsenbordje op het 
scherm een zogenoemde arpeggio te ma¬ 
ken. Een arpeggio bestaat uit een aantal 
noten, die tegelijk worden aangeslagen, 
zodat een bredere klank hoorbaar is. 

Sample 

Tenslotte kan de gebruiker met de sam- 
ple-module, ook eigen gesampelde mu¬ 
ziekinstrumenten kan gebruiken. Voor 
hen die geen sampler bezitten, zijn er in 
de UGA Public Domain-serie en andere 


bekende series als Fish voldoende instru¬ 
menten te vinden die te gebruiken zijn om 
een muziekstuk te componeren. 

In deze sectie kan men samples zodanig 
bewerken dat er nieuwe ontstaan. Bepaal¬ 
de stukjes kunnen worden uitgesneden, 
gekopieerd, gemengd en kunnen er ook 
berekeningen op los worden gelaten. Een 
ingeladen soundsample wordt grafisch op 
het scherm getoond waarna er in/uit ver¬ 
groot kan worden en op een makkelijke 
manier veranderd kan worden. 

Als extras heeft UGA een afspeelroutiiie 
voor Devpac en Aztec als sourcefile toe¬ 
gevoegd, zodat programmeurs de ge¬ 
maakte muziek in eigen programmatuur 
kunnen inbouwen. Voor de niet-program- 
meurs kan de zelfgemaakte muziek met 
een losse afspeelroutine hoorbaar worden 
gemaakt. 

Tot slot 

Al met al biedt dit pakket zeer veel moge¬ 
lijkheden voor het maken van eigen com¬ 
putermuziek. UGA heeft al toegezegd, 
dat in een volgende versie een MlDI-sec- 
tie zal worden toevoegd, zodat er ook met 
synthesizers kan worden gewerkt. Het 
complete pakket kost ƒ 59,-. Beslist niet 
duur en een aanrader voor Amiga mu- 
ziek-fans. 
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Checksum C-64 



Het overtikken van een listing kan een heel kar¬ 
wei zijn en als u een beetje normaal mens bent 
dan maakt u daarin beslist een aantal fouten. Nu 
is niets moeilijker om de fouten uit je eigen werk 
te halen. Al geruime tijd heeft Jan Bodzinga hier¬ 
voor een zgn. Checksum-programma geschre¬ 
ven. Om de vele nieuwe lezers van Commodore- 
info te helpen volgt hieronder nog een keer een 
volledige uitleg over de werking van dit program¬ 
ma, waarmee het, hoe vreemd dat misschien ook 
lijkt, echt mogelijk is om met behulp van dit pro¬ 
gramma de fouten in elke door ons geplaatste lis¬ 
ting op te sporen. 

Hiervoor gaat u als volgt te werk: 

1. U tikt de listing heel zorgvuldig over en SAVEt 
hem voordat u het programma RUNt op een dis¬ 
kette of cassette. 

2. U tikt het RUN commando in. Mocht het pro¬ 
gramma de boodschap 'FOUT in dataregels!’ ge¬ 
ven dan heeft u een fout bij het overtikken ge¬ 
maakt. Herstel dan de fout en SAVE de verbeter¬ 
de versie. Mocht het programma met de bood¬ 
schap 'data is weggezet checksum testen met 
sys...'komen dan is tot dusver alles goed. Het 
programma is nu in een stukje machine- 
taalgeheugen gezet. Als u het NEW commando 
geeft blijft het toch in de computer staan. 

Alle door ons geplaatste programma’s zijn in Ba¬ 
sic geschreven. 

Als u een programma heeft overgetikt SAVE het 
eerst, mocht er iets mis gaan dan hoeft u niet de 
gehele listing opnieuw te gaan intikken. Als u nu 
een programma op fouten wilt gaan controleren 
dan kunt u dat in het geheugen laden(wel eerst 
het checksum programma hebben gerund). Ver¬ 
volgens typt u zonder het programma te runnen 
de opdracht sys 49152(c-64) of sys 1536 (c-16 
en plus/4)in. 

Als alles goed is gegaan loopt er nu een rij regel¬ 
nummers over het scherm met getallen erachter. 
Dezelfde lijst staat ook achter elk door ons ge¬ 
plaatste programma. Wijkt nu een nummer achter 
een regelnummer af van het nummer dat in het 
blad staat dan heeft u in die regel iets anders 
ingetikt dan er in het blad stond. U kunt de 
stroom getallen d.m.v. de RUN/STOP toets pau¬ 
zeren en weer vervolgen met de F1 of F7 toets. 
Het is uitermate belangrijk dat u goed met dit pro¬ 
gramma overweg kunt en mocht u het niet goed 
werkend krijgen bel dan gerust even met onze 
listingservice telefoonlijn. (Maandag 17.00 - 21.00 
uur. Telefoonnummer 02155-25162.) 

De laatste tijd wordt er weer veel gebeld zodat U 
nogwel eens in gesprek krijgt, daarom houdt uw 
vraag kort, vermeld in welk blad het desbetreffen¬ 
de artikel stond. Heeft U veel vragen, of zis uw 
vraag erg uitgebreid, doe het dan schriftelijk, zo¬ 
dat we veel mensen op de maandag avond te 
woord kunnen staan. 


1 rem ****************************** 

2 rem basic loader "SYNTAX.CHECKSUM" 

3 rem na de commando's "run” en "new" 

4 rem blijft dit programma in het ge- 

5 rem heugen, laad het te testen pro- 

6 rem gramma en tik daarna sys 49152. 

7 rem ******************************* 

10 i=49152 :rem beginadres 

20 reada;i£a<0then40;rem data ingelezen 
30 pokei,a:i=i+l:b=b+a:goto20 
40 if b<>16844thenprint"[SHIFT-CLR]fo 
ut[SPACE]in[SPACE]dataregels!":b=0 
: end 

50 poke49184,148:poke49185, 192 

55 i=49300 

60 read a: ifa<0then80 
70 pokei,a:b=a+b:i=i+l:goto60 
80 if b<>20068thenprint"[SHIFT-CLR]fo 
ut[SPACE]in[SPACE]dataregels![SPAC 
E](vanaf[SPACE]regel[SPACE]240)":b 
=0:end 

90 prinfdata [SPACE] is [SPACE] weggezet" 

95 print"checksum[SPACE]testen[SPACE] 
met[SPACE]sys49152" 

100 data 165,43,166,44,133,163,134,164 
,169,147 

110 data 32,210,255,160,0,240,3,32,73,192 
120 data32,73,192,208,1,96, 32,225,255,208 
130 data 3,76,116,164,32,81,192,32,73,192 
140 data 240,12,201,32,240,247,24,101, 
167,133 

150 data 167,76,37,192,166,167,169,0,1 

32.168 

160 data 32,205,189,169,13,32,210,255, 

164.168 

170 data 76,17,192,200,208,2,230,164,1 
77,163 

180 data96,162,0,189,123,192,240, 6, 32,210 
190 data 255,232,208,245,32,73,192,170 
,32,73 

200 data 192,132,168,32,205,189,162,3, 
169,32 

210 data 32,210,255,202,208,250,169,0, 
133,167- 

220 data 164,168,96,82,69,71,69,76,32,0 
230 data -1 

240 data 165,197,201,3,240,7,201,4,240 
250 data 6,76,148,192,76,34,192,169 
260 data 147,32,210,255,76,161,192 
270 data -1 


** EINDE LISTING checksum 64 


REGEL 

i 

249 

REGEL 

100 

183 

REGEL 

2 

84 

REGEL 

110 

158 

REGEL 

3 

105 

REGEL 

120 

232 

REGEL 

4 

2 

REGEL 

130 

183 

REGEL 

5 

246 

REGEL 

140 

96 

REGEL 

6 

152 

REGEL 

150 

96 

REGEL 

7 

249 

REGEL 

160 

127 

REGEL 

10 

157 

REGEL 

170 

71 

REGEL 

20 

64 

REGEL 

180 

223 

REGEL 

30 
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LINGO 64 


Ditmaal weer een lange listing. Het zal de nodige 
uurtjes kosten om dit programma van S.F. de 
Vries uit Oosterwolde over te tikken. U zult zien 
het is zeker de moeite waard. Is het U te veel 
werk of durft U het niet aan, bestel dan de Infolist 
diskette waar o.a. dit programma opstaat. Ook op 
deze diskette staat een Seq. file met een groot 
aantal woorden, die hoeft U dan niet meer in te 
voeren. 

Het spel wordt gespeeld met twee spelers. U 
kunt een groot aantal standaard woorden invoe¬ 
ren (maximaal 100). Deze worden gesaved op 
diskette dus dit hoeft maar 1 keer te gebeuren. 
Na het opstarten van het spel, wordt er om de 
namen van de spelers gevraagd. Na het invullen 
wordt een matrix op het scherm getekend door 
het indrukken van de spatiebalk. De eerste letter 
van het willekeurig gekozen woord wordt linksbo¬ 
ven in de matrix geplaatst. De bedenktijd is be¬ 
perkt, snelheid is dus geboden, (ongeveer 15 
sec.) Wacht je te lang dan gaat de beurt over 
naar je tegenstander. Wacht deze ook te lang 
dan wordt het woord door de computer gegeven 
en gaat het spel met een nieuw woord verder. 
Letters die wel in het woord voorkomen maar niet 
op de juiste plek staan worden in het geel weer¬ 
gegeven. Letters die wel op de goede plaats 
staan zijn rood. Is het woord goed dan komt het 
lingo scherm weer te voorschijn en mogen er één 
of meerdere blokjes worden gepakt. Elke speler 
heeft 20 blokken, 17 met een getal en 3 rode. 
Wordt het rode blok gepakt dan gaat de beurt 
naar de tegenstander. Je hebt LINGO als er 5 
blokken op een rij staan, horizontaal, vertikaal of 
diagonaal. 


95 gosubl605 

100 x=0:y=16:gosubll65:input"speler[SP 
ACE]1:";sp$ (1) 

105 y=19:gosubll65:input"speler[SPACE] 
2:";sp$(2) 

110 as=as+l:gosubl085 

115 k$=ne$ : k=25 : xx=3 : yy=8 : gosub740 

120 k$=no$:k=25:xx=23:yy=8:gosub740 

125 k$=ne$:k=25:pe=1347:gosub795 

130 gosubl260:ifx=5thengotoll0 

135 ke$=k$+"000000" :ke=20 

140 k$=no$:k=25:pe=1367:gosub795 

145 gosubl260:ifx=5thengotoll0 

150 ko$=k$+"000000":ko=20 

155 sys49152 

160 x=l:y=20:gosubll65:print"[CTRL-2]d 
ruk[SPACE]op[SPACE]spatiebalk[CTRL 
1 ]" 

165 geta$:ifa$<>"[SPACE]"thenl65 
170 gosubll80:sys49182 
175 rem woord kiezen 

180 x=l:y=8:gosubll65:printpl;"punten" 
185 x=26:gosubll65:printp2;"punten" 

190 lt=0 : cc=0 :aw$="":poke650, 64 
195 wk=int(rnd(0)*wc)+1 
200 wk$=w$(wk) 

205 rem 

210 x=15:y=4:gosubll65 

215 if sp=lthenprint" [CTRL-8]<-«< [ 

CTRL-1]" 

220 ifsp=2thenprint" [CTRL-8] >»-> [ 

CTRL-1]" 

225 iflt>0then245 

230 rem eerste letter plaatsen 

235 x=15:y=8:gosubll65 

240 printleft$(wk$,1) 

245 x=l:y=20:gosubll65:poke646,sp+5 
250 print"[40xSPACE]" 

255 x=l:y=20:gosubll65:print"welk[SPAC 
E]woord[SPACE]is[SPACE]het[SPACE]" 
sp$(sp)"[SPACE]:[SPACE][5xCOM-D][5 
xCRSR-LEFT] 

260 c=0:poke646,0 
265 forn=lto5 
270 poke649,1 
275 c=c+l 

280 geta$:ifa$=""ora$="[SPACE]"ora$=ch 
r$ (20)then2 90 

285 printa$;:aw$=aw$+a$:c=0:goto300 
290 ifc>300thenc=0:goto305 
295 goto275 

300 nextn:poke649,0:forn=0to550:nextn: 
c=0:goto325 

305 cc=cc+l:ifcc=2then goto505 
310 ifsp=lthensp=2:goto32Q 
315 ifsp=2thensp=l 
320 aw$="":goto210 

325 x=0:y=20:gosubll65:print"[SPACE]ge 
el[SPACE]is[SPACE]letter[SPACE]goe 
d[SPACE]-[SPACE]rood[SPACE]plaats[ 
SPACE]goed" 

330 rem woord in matrix zetten 
335 x=13:y=8+(2*lt):gosubll65 
340 fort=lto5 
345 x=x+2:gosubll65 
350 printmid$(aw$,t,1) 

355 nextt:print"[CTRL-1]" 

360 ifcc=2thengoto625 


5 rem woordspel lingo 
10 rem door s.f. de vries 
15 rem oosterwolde 

20 rem voor c-64 

25 poke646,0:printchr$(142) 

30 1$="lingo" :pl=0 :p2=0: as=0 :vc=54272 

35 sp=int (rnd(0) *2)+1 

40 rem a=a+l:ifa=lthenload"mach.lingo 

",8,1 

45 dim w$(100) 

50 gosubl840 

55 ne$="10121416182022242628303234363 

840424446485052545658" 

60 no$="11131517192123252729313335373 

941434547495153555759" 

65 gosubl960 

70 fort=0to500:next:poke53281,15:poke 
53280,15 

75 fort=0to250:next:poke53281,12:poke 
53280,12 

80 fort=0to250:next:poke53281,11:poke 
53280,11 

85 fort=0to250:next:poke53281,0:poke5 
3280,0 

90 gosub2085 
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365 rem vergelijken keuzewoord en inge 
voerd woord 
370 X=13 

375 cw$=wk$:ca$=aw$ 

380 forn=lto5 

385 x=x+2:gosubll65 

390 i£mid$(cw$,n,1)<>mid$(aw$,n,1)then 
410 

395 gosubl165:print"[CTRL-3]";mid$(aw$ 

,n,1);"[CTRL-1]" 

400 ca$=left$(ca$,n-1)+"'"+right$(ca$, 
5-n) 

405 cw$=le£t$(cw$,n-1)+"*"+right$(cw$, 
5-n) 

410 nextn 

415 ifaw$=wk$thenaw$="":goto520 

420 x=13 

425 fort=lto5 

430 x=x+2 

435 forc=lto5 

440 ifmid$(cw$,c,1)<>mid$(ca$,t,l)then 
460 

445 gosubll65:print"[CTRL-8]";mid$(ca$ 
,t, 1);"[CTRL-1]" 

450 ca$=left$(ca$,t-1)+"'"+right$(ca$, 
5-t) 

455 cw$=left$(cw$, c-1)+"*"+right$(cw$, 
5-c) 

460 nextc 

465 nextt:forn=lto200:nextn 

470 ifaw$=wk$thenaw$="":goto520 

475 ifcc=landlt=4thencc=cc+l 

480 ifcc=2andaw$Owk$then lt=4:goto495 

485 aw$="":lt=lt+l:iflt<5then205 

490 lt=4:cc=cc+l 

495 ifsp=lthensp=2:goto505 

500 ifsp=2thensp=l 

505 ifcc=2thenaw$=wk$:print"[CTRL-7]": 

forc=0tol000 :nextc:goto335 
510 goto21Q 

515 rem woord is goed blokjes pakken 
520 ba=5-lt 

525 fort=ltol5:poke53280,t:forn=lto25: 
next:next 

530 x=l:y=20:gosub!165 
535 poke649,10 

540 print"[CTRL-2][2xSPACE]druk[SPACE] 
spatie[SPACE]om"ba"[CRSR-LEFT][SPA 
CE]blok j e(s) [SPACE]te[SPACE]pakken 
![CTRL-1][SPACE]" 

545 geta$:ifa$<>"[SPACE]"then545 

550 sys49212 

555 x=l6:y=4:gosubl165 

560 ifsp=lthenprint" [CTRL-8] <-«<[C 

TRL 1]" 

565 ifsp=2thenprint" [CTRL-8]»>->[C 

TRL 1]" 

570 forb=ltoba 
575 poke646,b+3:poke649,1 
580 x=0:y=20:gosubl165:print"[SPACE]dr 
uk[SPACE]spatie[SPACE]om[SPACE]"b" 
[CRSR-LEFT] .e[SPACE]blok j e[SPACE]t 
e[SPACE]pakken" 

585 geta$:ifa$<>"[SPACE]"then585 
590 poke646,0:poke649,0 
595 ifsp=lthengosub870 
600 ifsp=2thengosub980 
605 ifkl$="00"thengoto620 


610 i£x=5then660 
615 nextb:goto625 

620 ifkl$="00"thensp=sp+l :i£sp>2thensp 
=1:kl$="**" 

625 x=0:y=20:gosubll65:print"[CTRL-2][ 

SPACE]druk[SPACE]spatiebalk[SPACE] 
voor[SPACE]letter-matrix[4xSPACE][ 
CTRL-1]" 

630 poke649,l 

635 geta$:ifa$<>"[SPACE]"then635 
640 ifcc<>0thengoto655 

645 x=19:y=12:gosubll65:print"[2xSPACE 

3 " 

650 sys49152 

655 sys49244:gotol75 
660 rem lingo 
665 poke649,l 

670 x=l:y=20:gosubll65:print"[CTRL-2]d 
ruk[SPACE]spatiebalk[SPACE]voor[SP 
ACE]de[SPACE]punten[7xSPACE][CTRL- 
1]” 

675 geta$:ifa$<>"[SPACE]"then675 
680 ifsp=lthenpl=pl+50 
685 ifsp=2thenp2=p2+50 

690 print"[SHIFT-CLR]":print"[CRSR-DOW 

N]puntenverdeling[SPACE]na[SPACE]" 
as"spellet jes:" 

695 x=0:y=5:gosubll65:printsp$(1):x=15 
:gosubll65:printpl 

700 x=0:y=10:gosubl165:printsp$(2):x=l 
5:gosubll65:printp2 
705 x=0:y=15:gosubll65 

710 prinfverder [SPACE] spelen [SPACE] of 
[SPACE]stoppen?" 

715 geta$ : ifa$0"v"anda$0"s"then715 
720 ifa$="v"thengotoll0 

725 print"[4xCRSR-DOWN]u[SPACE]bent[SP 
ACE]gestopt MM!" 

730 poke650,0:poke649, 10 
735 end 

740 rem matrix invullen 

745 x=xx:y=yy 

750 kl=2*(int(k*rnd(0))+1) 

755 kl$=mid$(k$,kl-1,2) 

760 poke211,x:poke214, y:sys58640 
765 printkl$ 

770 if2*k=klthenk$=left$(k$, kl-2) :goto 
780 

775 k$=left$(k$,kl-2)+right$(k$,2*k-kl 

) 

780 x=x+3:ifx=xx+15thenx=xx:y=y+2 
785 k=k-l: ifk=0thenreturn 
790 goto750 

795 rem kiezen door te halen nummers 

800 a=0:p=pe 

805 kl=2*int(k*rnd(0)+1) 

810 kl$=mid$(k$,kl-1,2) 

815 if2*k=klthenk$=left$(k$,kl-2):goto 
825 

820 k$=left$ <k$,kl-2)+right$(k$,2*k-kl 

) 

825 x=19:y=12:gosubll65:print"[COM-8]" 
kl$"[CTRL-1]" 

830 fort=0to4 

835 forn=ptop+12step3 

840 ifpeek(1523)=peek(n)andpeek(1524) = 
peek(n+1)then poken,244:poken+l,97 
845 nextn 
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850 p=p+80:nextt 

855 p=pe:k=k-l:a=a+l:ifa=8then865 
860 goto805 

865 gosubll65:print"[2xSPACE]":return 
870 rem kiezen blokken even 
875 k$=ke$:p=1347 
880 kl=2*int(ke*rnd(0)+1) 

885 kl$=mid$(k$,kl-1,2) 

890 if2*ke=klthenk$=left$(k$,kl-2):got 
o900 

895 k$=left$(k$,kl-2)+right$(k$,2*ke-k 
1) 

900 ke$=k$:p=1347 
905 x=19:y=12:gosubll65 
910 ifkl$="00"thenprint"[CTRL-3][CTRL- 
9][COM-J] [CTRL-0] [COM-K][CTRL-1]": 
goto920 

915 print"[COM-8]"kl$"[CTRL-1]" 

920 fort=0to4 

925 forn=ptop+12step3 

930 ifpeek(1523)=peek(n)andpeek(1524)= 
peek(n+1)then 940 
935 goto955 

940 poken+vc, 7 :pok.en+vc+1, 7 

945 forc=0tol500:next 

950 poken,244:poken+l,97 

955 nextn 

960 p=p+80:nextt 

965 p=1347:gosubl260 

970 p=1347:ke=ke-l 

975 ke$=k$:return 

980 rem kiezen blokken oneven 

985 k$=ko$:p=1367 

990 kl=2*int(ko*rnd(0)+1) 

995 kl$=mid$(k$,kl-1,2) 

1000 if2*ko=klthenk$=left$<k$,kl-2) : got 
olOlO 

1005 k$=le£t$(k$,kl-2)+right$(k$, 2*ko-k 
1) 

1010 x=19:y=12:gosubll65 
1015 ifkl$="00"thenprint"[CTRL-3] [CTRL- 
9][COM-G] [CTRL-0] [COM-K][CTRL-1]": 
gotol025 

1020 print"[COM-8]"kl$"[CTRL-1]" 

1025 fort=0to4 

1030 forn=ptop+12step3 

1035 ifpeek(1523)=peek(n)andpeek(1524) = 
peek(n+1)thenl045 
1040 gotol060 

1045 poken+vc,7:poken+vc+l,7 
1050 forc=0tol500:next 
1055 poken, 244 :poken+l, 97 
1060 nextn 
1065 p=p+80 : nextt 
1070 p=1367:gosubl2 60 
1075 p=1367:ko=ko-l 
1080 ko$=k$ : return 
1085 rem opzetten getallenmatrix 
1090 print"[SHIFT-CLR] [CRSR-DOWN] [14xSP 
ACE][CTRL-9][SPACE]1[SPACE]i[SPACE 
]n[SPACE]g[SPACE]o[SPACE][2xCRSR-D 
OWN] " 

1095 x=2:y=4:gosubll65:printsp$(1) 

1100 x=38-len(sp$(2)) :gosubll65:printsp 
$(2) 

1105 print" [2xCRSR-DOWN] [2xSPACE] [COM-A 
]CC[COM-R]CC[COM-R]CC[COM-R]CC[COM 
R]CC[COM-S][4xSPACE][COM-A]CC[COM 


R]CC[COM-R]CC[COM-R]CC[COM-R]CC[C 
OM S] 

1110 print"[2xSPACE]B[2xSHIFT-SPACE]B[2 
xSHIFT-SPACE]B[2xSHIFT-SPACE]B[2xS 
HIFT SPACE]B[2xSHIFT-SPACE]B[4xSPA 
CE]B[2xSHIFT-SPACE]B[2xSHIFT-SPACE 
]B[2xSHIFT-SPACE]B[2xSHIFT-SPACE]B 
[2xSHIFT-SPACE]B 

1115 print"[2xSPACE] [COM-Q]CC[SHIFT-+]C 
C[SHIFT—h]CC[SHIFT—h]CC[SHIFT—h]CC 
[COM-W][4xSPACE][COM-Q]CC[SHIFT-+] 
CC[SHIFT- + ]CC[SHIFT-+]CC[SHIFT—h]C 
C[COM-W] 

1120 print"[2xSPACE]B[2xSPACE]B[SPACE] [ 
SHIFT-SPACE]B[2xSHIFT-SPACE]B[2xSH 
IFT SPACE]B[2xSHIFT-SPACE]B[SHIFT- 
SPACE] [SPACE][2xSHIFT-SPACE]B[2xSH 
IFT SPACE]B[2xSHIFT-SPACE]B[2xSHIF 
T SPACE]B[2xSHIFT-SPACE]B[2xSHIFT- 
SPACE]B 

1125 print"[2xSPACE] [COM-Q]CC[SHIFT-+]C 
C[SHIFT—h]CC[SHIFT—(-]CC[SHIFT- + ]CC 
[COM-W][4xSPACE][COM-Q]CC[SHIFT-+] 
CC [SHIFT—1-] CC [SHIFT—h] CC [SHIFT-+] C 
C[COM-W] 

1130 print"[2xSPACE]B[2xSHIFT-SPACE]B[S 
HIFT SPACE][SPACE]B[2xSHIFT-SPACE] 
B[SHIFT-SPACE][SPACE]B[2xSHIFT-SPA 
CE]B[4xSPACE]B[2xSHIFT-SPACE]B[2xS 
HIFT SPACE]B[2xSHIFT-SPACE]B[2xSHI 
FT SPACE]B[2xSHIFT-SPACE]B 
1135 print"[2xSPACE] [COM-Q]CC[SHIFT-+]C 
C[SHIFT—h]CC[SHIFT-+]CC[SHIFT—h]CC 
[COM-W][SHIFT-SPACE][SPACE][2xSHIF 
T SPACE][COM-Q]CC[SHIFT-+]CC[SHIFT 
+]CC[SHIFT-+]CC[SHIFT-+]CC[COM-W] 
1140 print"[2xSPACE]B[2xSHIFT-SPACE]B[2 
xSHIFT-SPACE]B[2xSHIFT-SPACE]B[2xS 
HIFT SPACE]B[2xSHIFT-SPACE]B[4xSPA 
CE]B[2xSHIFT-SPACE]B[2xSHIFT-SPACE 
]B[2xSHIFT-SPACE]B[2xSHIFT-SPACE]B 
[2xSHIFT-SPACE]B 

1145 print"[2xSPACE] [COM-Q]CC[SHIFT-+]C 
C[SHIFT-+]CC[SHIFT-+]CC[SHIFT-+]CC 
[COM-W][4xSPACE][COM-Q]CC[SHIFT-+] 
CC[SHIFT-+]CC[SHIFT- + ]CC[SHIFT—h]C 
C[COM-W] 

1150 print"[2xSPACE]B[2xSHIFT-SPACE]B[2 
xSHIFT-SPACE]B[2xSHIFT-SPACE]B[2xS 
HIFT SPACE]B[2xSHIFT-SPACE]B[SHIFT 
SPACE][SPACE][2xSHIFT-SPACE]B[2xS 
HIFT SPACE]B[2xSHIFT-SPACE]B[2xSHI 
FT SPACE]B[2xSHIFT-SPACE]B[2xSHIFT 
SPACE]B 

1155 print"[2xSPACE] [COM-2]CC[COM-E]CC[ 
COM-E]CC[COM-E]CC[COM-E]CC[COM-X][ 
4xSPACE][COM-Z]CC[COM-E]CC[COM-E]C 
C[COM-E]CC[COM-E]CC[COM-X] 

1160 return 

1165 rem plaatsbepaling cursor 
1170 poke211,x:poke214,y:sys58640 
1175 return 

1180 rem lettermatrix opzetten 
1185 print"[SHIFT-CLR] [CRSR-DOWN] [14xSP 
ACE][CTRL-9][SPACE]1[SPACE]i[SPACE 
]n[SPACE]g[SPACE]o[SPACE] [CTRL-0] " 
1190 x=2:y=4:gosubl165:printsp$(1) 

1195 x=38-len(sp$(2)) :gosubll65:printsp 
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$ ( 2 ) 

1200 print"[2xCRSR-D0WN] [14xSPACE] [COM- 
A]C[COM-R]C[COM-R]C[COM-R]C[COM-R] 

C [ COM- S ] 

1205 print"[14xSPACE]B[SPACE]B[SHIFT-SP 
ACE]B[SHIFT-SPACE]B[SHIFT-SPACE]B[ 
SHIFT-SPACE]B 

1210 print"[14xSPACE] [COM-Q]C[SHIFT- + ]C 
[SHIFT-+]C[SHIFT—h]C[SHIFT-+]C[COM 
W] 

1215 print"[14xSPACE]B[SHIFT-SPACE]B[SH 
IFT SPACE]B[SHIFT-SPACE]B[SHIFT-SP 
ACE]B[SHIFT-SPACE]B 

1220 print"[14xSPACE] [COM-Q]C [SHIFT h]C 
[SHIFT- + ]C[SHIFT-+]C[SHIFT—h]C[COM 
W] 

1225 print"[14xSPACE]B[SHIFT-SPACE]B[SH 
IFT SPACE]B[SHIFT-SPACE]B[SHIFT-SP 
ACE]B[SHIFT-SPACE]B 

1230 print"[14xSPACE] [COM-Q]C[SHIFT-+]C 
[SHIFT- + ]C[SHIFT-+]C[SHIFT—h]C[COM 
W] 

1235 print"[14xSPACE]B[SHIFT-SPACE]B[SH 
IFT SPACE]B[SHIFT-SPACE]B[SHIFT-SP 
ACE]B[SHIFT-SPACE]B 

1240 print"[14xSPACE] [COM-Q]C[SHIFT-+]C 
[SHIFT-+]C[SHIFT-+]C[SHIFT-+]C[COM 
W] 

1245 print"[14xSPACE]B[SHIFT-SPACE]B[SH 
IFT SPACE]B[SHIFT-SPACE]B[SHIFT-SP 
ACE]B[SHIFT-SPACE]B 

1250 print"[14xSPACE] [COM-Z]C[COM-E]C[C 
OM E]C[COM-E]C[COM-E]C[COM-X] 

1255 return 

12 60 rem controle op lingo 

1265 pe=p: x=0 

1270 fort=0to4 

1275 forn=petope+12step3 

1280 ifpeek(n)<>244thenx=0:gotol295 

1285 x=x+l:ifx=5thengosubl400:gotol395 

12 90 nextn 

1295 pe=pe+80 

1300 nextt 

1305 pe=p: x=0 

1310 fort=0to4 

1315 forn=petope+400step80 

1320 ifpeek(n)<>244thenx=0:gotol335 

1325 x=x+l:ifx=5thengosubl455:gotol395 

1330 nextn 

1335 pe=pe+3 

1340 nextt 

1345 pe=p:x=0 

1350 forn=petope+332step83 

1355 ifpeek(n)<>244thenx=0:gotol365 

1360 x=x+l: nextn 

1365 ifx=5thengosubl505:gotol395 

1370 pe=p+12 : x=0 

1375 forn=petope+308 step77 

1380 ifpeek(n)<>244thenx=0:gotol390 

1385 x=x+l: nextn 

1390 ifx=5thengosubl555:gotol395 
1395 return 

1400 rem invullen lingo 
1405 lc—1 

1410 forn=petope+12step3 

1415 poken,asc(mid$(1$,lc,1))-64:pokent 
1,32:lc=lc+l 
1420 nextn 


1425 fornn=14to2step-l 

1430 forn=pe+vctope+vc+12step3 

1435 poken, nn 

1440 forc=0tol0 :next 

1445 nextn, nn 

1450 return 

1455 lc=l 

1460 forn=petope+320step80 
1465 poken,asc(mid$(1$,lc,1))-64:poken+ 
1,32:lc=lc+l 
1470 nextn 

1475 fornn=14to2step-l 

1480 forn=pe+vctope+vc+320step80 

1485 poken, nn 

1490 forc=0tol0 : next 

1495 nextn, nn 

1500 return 

1505 lc=l 

1510 forn=petope+332step83 
1515 poken,asc(mid$(1$,lc,1))-64:poken+ 
1,32:lc=lc+l 
1520 nextn 

1525 fornn=14to2step-l 

1530 forn=pe+vctope+vc+332step83 

1535 poken, nn 

1540 forc=0tol0 :next 

1545 nextn, nn 

1550 return 

1555 lc—1 

1560 forn=pe+308topestep-77 
1565 poken,asc(mid$(1$,lc,1))-64:poken+ 
1,32:lc=lc+l 
1570 nextn 

1575 fornn=14to2step-l 

1580 forn=pe+vc+308tope+vcstep-77 

1585 poken, nn 

1590 forc=0tol0 :next 

1595 nextn, nn 

1600 return 

1605 rem invoer 

1610 print"[SHIFT-CLR] [CRSR-DOWN] [14xSP 
ACE][CTRL-9][SPACE]1[SPACE]i[SPACE 
]n[SPACE]g[SPACE]o[SPACE][2xCRSR-D 
OWN] " 

1615 fort=0tol000 :next:poke53281,15:pok 
e53280,15 

1620 print"[2xCRSR-DOWN]woorden[SPACE]i 
nvoeren[SPACE]vanaf:" 

1625 print"[CRSR-DOWN] [4xSPACE]1[SPACE] 
toetsenbord" 

1630 print"[CRSR-DOWN] [4xSPACE]2[SPACE] 
disk 

1635 print"[3xCRSR-D0WN]uw[SPACE]keus[S 
PACE]is : "; 

1640 geta$:ifa$<"l"ora$>"2"thenl640 
1645 ifa$="2"thenprint"[SPACE]disk":for 
n=0tol000 :next: gotol760 
1650 print"[SPACE]toetsenbord" 

1655 forn=0tol000 :next 

1660 print"[SHIFT-CLR] [2xCRSR-D0WN]invo 
er[SPACE]vanaf[SPACE]toetsenbord[S 
PACE]" 

1665 print"[2xCRSR-DOWN]stop[SPACE]invo 
er[SPACE]door[SPACE]*[SPACE]in[SPA 
CE]te[SPACE]tikken.[CRSR-DOWN]" 
1670 print"maximaal[SPACE]100[SPACE]woo 
rden![2xCRSR-D0WN]" 

1675 wc=l 
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- Print out - Print out - Print out - Print out - Print out - 


1680 print"[HOME] [10xCRSR-DOWN]woord[SP 
ACE]nummer:"wc; 

1685 input"[8xSPACE] [8xCRSR-LEFT]w$( 
wc) 

1690 ifw$(wc)="*"thenwc=wc-l:gotol705 
1695 iflen(w$(wc))<>5thenl680 
1700 wc=wc+l: gotol680 

1705 print"[2xCRSR-DOWN]wilt[SPACE]u[SP 
ACE]spelen[SPACE]of[SPACE]de[SPACE 
[woorden[SPACE]bewaren?" 

1710 geta$: ifa$<>"s"anda$O"b"thenl710 
1715ifa$="s"then return 
1720 input"[2xCRSR-DOWN]geef[SPACE]file 
[SPACE]naam";f$ 

1725 openl,8,14,"'0:"+f$+",s,w" 

1730 print#l, wc; chr$ (13) 

1735 fort=ltowc 
1740 print#l, w$ (t) 

1745 next t: closel 
1750 printchr$ (147) 

1755 return 

1760 print"[SHIFT-CLR] [2xCRSR-DOWN]invo 
er[SPACE]vanaf[SPACE]disk" 

1765 input"[3xCRSR-DOWN]geef[SPACE]file 
[SPACE]naam";f$ 

1770 openl5, 8,15 
1775 openl, 8,14, " '0 : "+f$+", s, r" 

1780 input#15,a$,b$,c$,d$ 

1785 ifval (a$) <>62thenl810 
1790 print"[4xCRSR-DOWN]";f$;"[SPACE]ni 
et[SPACE]gevonden!!!![6xCRSR-DOWN] 

1795 print"druk[SPACE]op[SPACE]de[SPACE 
]spatiebalk." 

1800 geta$:ifa$<>"[SPACE]"thenl800 
1805 closel:closel5: gotol605 

1810 input#l,wc 
1815 fort=ltowc 
1820 input# 1, w$ (t) 

1825 nextt: closel 
1830 closel5 
1835 return 
1840 rem titelscherm 

1845 print"[SHIFT-CLR]":poke53281,3:pok 
e53280,3:poke646,0 
1850 print"[2xSPACE] [2xC0M-+]" 

1855 print"[2xSPACE] [2xCOM-+] [12xSPACE] 
e[SPACE]e[SPACE]n" 

1860 print"[2xSPACE] [2xCOM-+]" 

1865 print"[2xSPACE] [2xCOM-+] [6xSPACE]w 
[SPACE]o[SPACE]o[SPACE]r[SPACE]d[S 
PACE]s[SPACE]p[SPACE]e[SPACE]1[8xS 
PACE]" 

1870 print”[2xSPACE] [2xC0M-+]" 

1875 print"[2xSPACE] [2xCOM-+]" 

1880 print"[2xSPACE] [2xCOM- + ]" 

1885 print”[2xSPACE] [2xCOM-+] [3xSPACE] [ 
2xCOM-+][2xSPACE][2xCOM-+][4xSPACE 
][2xCOM-+][2xSPACE][6xCOM-+][2xSPA 
CE][6xCOM-+]" 

1890 print"[2xSPACE] [2xCOM-+] [3xSPACE] [ 
2xCOM-+][2xSPACE][3xCOM-+][3xSPACE 
][2xCOM-+][2xSPACE][2xCOM-+][3xSPA 
CE][COM-+][2XSPACE][2xCOM-+][2xSPA 
CE][2xCOM-+]" 

1895 print"[2xSPACE] [2xCOM-+] [3xSPACE] [ 
2xCOM-+][2xSPACE][4xC0M-+][2xSPACE 
][2xCOM-+][2xSPACE][2xCOM-+][3xSPA 


CE][COM-+][2xSPACE][2xCOM-+][2xSPA 
CE][2xCOM-+]" 

1900 print"[2xSPACE] [2xC0M-+] [3xSPACE] [ 
2xCOM-+][2xSPACE][2xCOM-+][SPACE][ 
2xCOM-+][SPACE][2xCOM-+][2xSPACE][ 
2xCOM-+][6xSPACE][2xCOM-+][2xSPACE 
] [2xCOM—h] " 

1905 print"[2xSPACE] [2xCOM-+] [3xSPACE] [ 
2xCOM-+][2xSPACE][2xCOM-+][2xSPACE 
][4xCOM-+][2xSPACE][2xCOM-+][2xSPA 
CE][2xCOM-+][2xSPACE][2xCOM-+][2xS 
PACE][2xCOM-+]" 

1910 print"[2xSPACE] [2xCOM-+] [3xSPACE] [ 
2xCOM-+][2xSPACE][2xCOM-+][3xSPACE 
][3xCOM-+][2xSPACE][2xCOM-+][3xSPA 
CE][COM-+][2xSPACE][2xCOM-+][2xSPA 
CE][2xCOM-+]" 

1915 print"[2xSPACE] [2xCOM- + ] [3xSPACE] [ 
2xCOM-+][2xSPACE][2xCOM-+][4xSPACE 
][2xCOM-+][2xSPACE][6xCOM-+][2xSPA 
CE][6XCOM-+]" 

1920 print"[2xSPACE] [2xCOM-+]" 

1925 print"[2xSPACE] [2xCOM- + ]" 

1930 print"[2xSPACE] [33xCOM-+]" 

1935 print"[2xSPACE] [33xCOM-+] [2xCRSR-D 
OWN] " 

1940 print"[16xSPACE]door" 

1945 print" 

1950 print"[12xSPACE]s.f. [SPACE]de[SPAC 
E]vries" 

1955 return 

1960 rem plaatsen mach. taal 
1965 fort=49152to49292:readq:poket, q 
1970 tq=tq+q 
1975 nextt 

1980 iftq<>152 95thenprint"fout[SPACE]in 
[SPACE]data":end 
1985 return 

1990 rem data mach. taal 
1995 datal62,0,189,0,4,157,0,194 
2000 datal89,0,5,157,0,195,189,0 
2005 data6,157,0,196,189,0,7,157 
2010 dataO,197,232,208,229,96,162, 0 
2015 datal89,0,4,157,0,198,189,0 
2020 data5,157,0,199,189,0,6,157 
2025 dataO,200,189,0,7,157,0,201 
2030 data232,208,229,96,162,0,189, 0 
2035 datal94,157,0,4,189,0,195,157 
2040 dataO,5,18 9,0,196,157,0,6 
2045 datal89,0,197,157,0,7,232,208 
2050 data22 9,76,121,192,162,0,189,0 
2055 datal98,157,0,4,189,0,199,157 
2060 dataO, 5, 189, 0, 200, 157, 0, 6 
2065 datal89,0,201,157,0,7,232,208 
2070 data229,169,0,162,0,157,0,216 
2075 datal57, 0, 217, 157, 0,218,157, 0 
2080 data219,232,208,241,96 
2085 rem uitleg spel 
2090 print"[SHIFT-CLR] [CTRL-8]"; 

2095 prinfalles [SPACE] wat [SPACE] je [SPA 
CE]moet[SPACE]doen[SPACE]wordt[SPA 
CE]op[SPACE]het[5xSPACE]scherm[SPA 
CE]aangegeven,daarom[SPACE]"; 

2100 print"alleen[SPACE]de[6xSPACE]volg 
ende[SPACE]opmerkingen:[CRSR-DOWNJ 

I! 

2105 print"!. [SPACE]de[SPACE[bedenktijd 
[SPACE]is[SPACE[beperkt." 
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2110 print"2. [SPACE]druk[SPACE]niet[SPA 
CE]op[SPACE][CTRL-9]return[CTRL-0] 
[SPACE]na[SPACE]invullen[SPACE]van 
[SxSPACE]het[SPACE]antwoord." 

2115 print"3. [SPACE]correctie[SPACE]van 
[SPACE]het[SPACE]antwoord[SPACE]is 
[SPACE]niet[6xSPACE]mogelijk." 

2120 print"4.[SPACE]wacht[SPACE]je[SPAC 
E]te[SPACE]lang,[SPACE]dan[SPACE]g 
aat[SPACE]de[SPACE]beurt[SxSPACE]o 
ver[SPACE]naar[SPACE]je[SPACE]tege 
nspeler. 

2125 print"5. [SPACE]raad[SPACE]je[SPACE 
]het[SPACE]woord[SPACE]niet[SPACE] 
in[SPACE]5[SPACE]keer[SPACE]dan[4x 
SPACE]gaat[SPACE]de[SPACE]beurt[SP 
ACE]ook[SPACE]over. 

2130 print"6. [SPACE]wachten[SPACE]beide 
[SPACE]spelers[SPACE]te[SPACE]lang 
[SPACE]of[8xSPACE]wordt[SPACE]het[ 
SPACE]woord[SPACE]niet[SPACE]gerad 
en" 

2135 print"[3xSPACE]dan[SPACE]vult[SPAC 


E]de[SPACE]comp.[SPACE]het[SPACE]w 
oord[SPACE]in." 

2140 print"7.[SPACE]elke[SPACE]speler[S 
PACE]krijgt[SPACE]naast[SPACE]de[S 
PACE]cij fer[6xSPACE]blokken[SPACE] 
3[SPACE]rode[SPACE]blokken." 

214 5 print"[3xSPACE]pak[SPACE]j e[SPACE] 
een[SPACE]rood[SPACE]blok,[SPACE]d 
an[SPACE]gaat[SPACE]de[7xSPACE]beu 
rt[SPACE]over[SPACE]naar[SPACE]teg 
enspeler." 

2150 print"8. [SPACE]5[SPACE]blokken[SPA 
CE]op[SPACE]een[SPACE]rij[SPACE]ge 
eft[SPACE][CTRL-9]lingo [CTRL-0] [SP 
ACE]en[5xSPACE]levert[SPACE]50[SPA 
CE]punten[SPACE]op." 

2155 print"[CRSR-DOWN] [2xSPACE]druk[SPA 
CE]op[SPACE]spatiebalk" 

2160 geta$:ifa$<>"[SPACE]"then2160 

2165 poke646,0:return 

** EINDE LISTING lingo ** _ 


Checksum lingo 


REGEL 

5 

199 

REGEL 

250 

221 

REGEL 

495 

156 

REGEL 

740 

209 

REGEL 

985 

236 

REGEL 

10 

202 

REGEL 

255 

169 

REGEL 

500 

63 

REGEL 

745 

177 

REGEL 

990 

111 

REGEL 

15 

230 

RE,GEL 

260 

242 

REGEL 

505 

168 

REGEL 

750 

113 

REGEL 

995 

190 

REGEL 

20 

175 

REGEL 

265 

139 

REGEL 

510 

28 

REGEL 

755 

190 

REGEL 

1000 

139 

REGEL 

25 

21 

REGEL 

270 

151 

REGEL 

515 

153 

REGEL 

760 

123 

REGEL 

1005 

44 

REGEL 

30 

83 

REGEL 

275 

19 

REGEL 

520 

181 

REGEL 

765 

57 

REGEL 

1010 

176 

REGEL 

35 

80 

REGEL 

280 

180 

REGEL 

525 

132 

REGEL 

770 

25 

REGEL 

1015 

38 

REGEL 

40 

54 

REGEL 

285 

97 

REGEL 

530 

118 

REGEL 

775 

221 

REGEL 

1020 

236 

REGEL 

45 

227 

REGEL 

290 

57 

REGEL 

535 

199 

REGEL 

780 

169 

REGEL 

1025 

143 

REGEL 

50 

90 

REGEL 

295 

39 

REGEL 

540 

61 

REGEL 

785 

75 

REGEL 

1030 

174 

REGEL 

55 

188 

RE,GEL 

300 

143 

REGEL 

545 

29 

REGEL 

790 

37 

REGEL 

1035 

105 

REGEL 

60 

223 

REGEL 

305 

146 

REGEL 

550 

160 

REGEL 

795 

177 

REGEL 

1040 

80 

REGEL 

65 

93 

REGEL 

310 

151 

REGEL 

555 

126 

REGEL 

800 

244 

REGEL 

1045 

43 

REGEL 

70 

119 

RE,GEL 

315 

63 

REGEL 

560 

103 

REGEL 

805 

32 

REGEL 

1050 

204 

REGEL 

75 

115 

REGEL 

320 

8 

REGEL 

565 

112 

REGEL 

810 

190 

REGEL 

1055 

65 

REGEL 

80 

113 

REGEL 

325 

121 

REGEL 

570 

205 

REGEL 

815 

25 

REGEL 

1060 

208 

REGEL 

85 

13 

REGEL 

330 

96 

REGEL 

575 

83 

REGEL 

820 

221 

REGEL 

1065 

116 

REGEL 

90 

92 

REGEL 

335 

248 

REGEL 

580 

196 

REGEL 

825 

214 

REGEL 

1070 

99 

REGEL 

95 

89 

REGEL 

340 

145 

REGEL 

585 

33 

REGEL 

830 

143 

REGEL 

1075 

207 

REGEL 

100 

55 

REGEL 

345 

210 

REGEL 

590 

99 

REGEL 

835 

174 

REGEL 

1080 

167 

REGEL 

105 

200 

REGEL 

350 

77 

REGEL 

595 

228 

REGEL 

840 

224 

REGEL 

1085 

41 

REGEL 

110 

74 

REGEL 

355 

125 

REGEL 

600 

231 

REGEL 

845 

208 

REGEL 

1090 

46 

REGEL 

115 

125 

REGEL 

360 

194 

REGEL 

605 

73 

REGEL 

850 

116 

REGEL 

1095 

101 

REGEL 

120 

185 

REGEL 

365 

149 

REGEL 

610 

13 

REGEL 

855 

120 

REGEL 

1100 

47 

REGEL 

125 

50 

REGEL 

370 

110 

REGEL 

615 

36 

REGEL 

860 

38 

REGEL 

1105 

101 

REGEL 

130 

28 

REGEL 

375 

134 

REGEL 

620 

151 

REGEL 

865 

57 

REGEL 

1110 

83 

REGEL 

135 

193 

REGEL 

380 

139 

REGEL 

625 

79 

REGEL 

870 

137 

REGEL 

1115 

139 

REGEL 

140 

62 

REGEL 

385 

210 

REGEL 

630 

151 

REGEL 

875 

224 

REGEL 

1120 

83 

REGEL 

145 

28 

REGEL 

390 

137 

REGEL 

635 

29 

REGEL 

880 

101 

REGEL 

1125 

139 

REGEL 

150 

213 

REGEL 

395 

133 

REGEL 

640 

117 

REGEL 

885 

190 

REGEL 

1130 

19 

REGEL 

155 

163 

REGEL 

400 

101 

REGEL 

645 

199 

REGEL 

890 

88 

REGEL 

1135 

107 

REGEL 

160 

215 

REGEL 

405 

145 

REGEL 

650 

163 

REGEL 

895 

34 

REGEL 

1140 

83 

REGEL 

165 

27 

REGEL 

410 

208 

REGEL 

655 

5 

REGEL 

900 

224 

REGEL 

1145 

139 

REGEL 

170 

55 

REGEL 

415 

114 

REGEL 

660 

8 

REGEL 

905 

176 

REGEL 

1150 

51 

REGEL 

175 

224 

REGEL 

420 

110 

REGEL 

665 

151 

REGEL 

910 

9 

REGEL 

1155 

83 

REGEL 

180 

249 

REGEL 

425 

145 

REGEL 

670 

225 

REGEL 

915 

236 

REGEL 

1160 

142 

REGEL 

185 

180 

REGEL 

430 

62 

REGEL 

675 

33 

REGEL 

920 

143 

REGEL 

1165 

116 

REGEL 

190 

18 

REGEL 

435 

128 

REGEL 

680 

123 

REGEL 

925 

174 

REGEL 

1170 

123 

REGEL 

195 

183 

REGEL 

440 

117 

REGEL 

685 

126 

REGEL 

930 

60 

REGEL 

1175 

142 

REGEL 

200 

230 

REGEL 

445 

249 

REGEL 

690 

174 

REGEL 

935 

44 

REGEL 

1180 

173 

REGEL 

205 

143 

REGEL 

450 

113 

REGEL 

695 

246 

REGEL 

940 

43 

REGEL 

1185 

158 

REGEL 

210 

125 

REGEL 

455 

123 

REGEL 

700 

36 

REGEL 

945 

204 

REGEL 

1190 

101 

REGEL 

215 

148 

REGEL 

460 

197 

REGEL 

705 

121 

REGEL 

950 

65 

REGEL 

1195 

47 

REGEL 

220 

157 

REGEL 

465 

2 

REGEL 

710 

105 

REGEL 

955 

208 

REGEL 

1200 

210 

REGEL 

225 

78 

REGEL 

470 

114 

REGEL 

715 

129 

REGEL 

960 

116 

REGEL 

1205 

199 

REGEL 

230 

127 

REGEL 

475 

105 

REGEL 

720 

254 

REGEL 

965 

97 

REGEL 

1210 

84 

REGEL 

235 

129 

REGEL 

480 

28 

REGEL 

725 

106 

REGEL 

970 

185 

REGEL 

1215 

103 

REGEL 

240 

213 

REGEL 

485 

68 

REGEL 

730 

143 

REGEL 

975 

157 

REGEL 

1220 

84 

REGEL 

245 

149 

REGEL 

490 

89 

REGEL 

735 

128 

REGEL 

980 

38 

REGEL 

1225 

103 
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Checksum Lingo (vervolg) 






REGEL 

1230 

84 

REGEL 

1420 

208 

REGEL 

1610 

46 

REGEL 

1800 

72 

REGEL 

1990 

18 

REGEL 

1235 

103 

REGEL 

1425 

143 

REGEL 

1615 

163 

REGEL 

1805 

160 

REGEL 

1995 

241 

REGEL 

1240 

84 

RIS GEL 

1430 

190 

REGEL 

1620 

41 

REGEL 

1810 

123 

REGEL 

2000 

252 

REGEL 

1245 

103 

REGEL 

1435 

173 

REGEL 

1625 

104 

REGEL 

1815 

246 

REGEL 

2005 

0 

REGEL 

1250 

184 

REGEL 

1440 

103 

REGEL 

1630 

41 

REGEL 

1820 

1 

REGEL 

2010 

142 

REGEL 

1255 

142 

REGEL 

1445 

152 

REGEL 

1635 

5 

REGEL 

1825 

225 

REGEL 

2015 

254 

REGEL 

1260 

13 

REGEL 

1450 

142 

REGEL 

1640 

6 

REGEL 

1830 

6 

REGEL 

2020 

1 

REGEL 

1265 

11 

REGEL 

1455 

114 

REGEL 

1645 

100 

REGEL 

1835 

142 

REGEL 

2025 

226 

REGEL 

1270 

143 

REGEL 

1460 

159 

REGEL 

1650 

38 

REGEL 

1840 

211 

REGEL 

2030 

143 

REGEL 

1275 

56 

REGEL 

1465 

80 

REGEL 

1655 

210 

REGEL 

1845 

162 

REGEL 

2035 

100 

REGEL 

1280 

95 

REGEL 

1470 

208 

REGEL 

1660 

26 

REGEL 

1850 

41 

REGEL 

2040 

145 

REGEL 

1285 

207 

REGEL 

1475 

143 

REGEL 

1665 

171 

REGEL 

1855 

1 

REGEL 

2045 

95 

REGEL 

1290 

208 

REGEL 

1480 

37 

REGEL 

1670 

25 

REGEL 

1860 

41 

REGEL 

2050 

140 

REGEL 

1295 

238 

REGEL 

1485 

173 

REGEL 

1675 

125 

REGEL 

1865 

232 

REGEL 

2055 

108 

REGEL 

1300 

214 

REGEL 

1490 

103 

REGEL 

1680 

8 

REGEL 

1870 

41 

REGEL 

2060 

131 

REGEL 

1305 

11 

RIS GEL 

1495 

152 

REGEL 

1685 

82 

REGEL 

1875 

41 

REGEL 

2065 

81 

REGEL 

1310 

143 

RIS GEL 

1500 

142 

REGEL 

1690 

10 

REGEL 

1880 

41 

REGEL 

2070 

83 

REGEL 

1315 

158 

REGEL 

1505 

114 

REGEL 

1695 

20 

REGEL 

1885 

213 

REGEL 

2075 

83 

REGEL 

1320 

90 

REGEL 

1510 

165 

REGEL 

1700 

83 

REGEL 

1890 

61 

REGEL 

2080 

6 

REGEL 

1325 

217 

REGEL 

1515 

80 

REGEL 

1705 

218 

REGEL 

1895 

227 

REGEL 

2085 

141 

REGEL 

1330 

208 

REGEL 

1520 

208 

REGEL 

1710 

153 

REGEL 

1900 

61 

REGEL 

2090 

73 

REGEL 

1335 

185 

REGEL 

1525 

143 

REGEL 

1715 

110 

REGEL 

1905 

137 

REGEL 

2095 

226 

REGEL 

1340 

214 

REGEL 

1530 

43 

REGEL 

1720 

228 

REGEL 

1910 

61 

REGEL 

2100 

245 

REGEL 

1345 

11 

REGEL 

1535 

173 

REGEL 

1725 

227 

REGEL 

1915 

213 

REGEL 

2105 

112 

REGEL 

1350 

165 

REGEL 

1540 

103 

REGEL 

1730 

70 

REGEL 

1920 

41 

REGEL 

2110 

36 

REGEL 

1355 

93 

REGEL 

1545 

152 

REGEL 

1735 

246 

REGEL 

1925 

41 

REGEL 

2115 

94 

REGEL 

1360 

71 

REGEL 

1550 

142 

REGEL 

1740 

21 

REGEL 

1930 

67 

REGEL 

2120 

94 

REGEL 

1365 

94 

REGEL 

1555 

114 

REGEL 

1745 

225 

REGEL 

1935 

101 

REGEL 

2125 

162 

REGEL 

1370 

24 

REGEL 

1560 

86 

REGEL 

1750 

77 

REGEL 

1940 

17 

REGEL 

2130 

52 

REGEL 

1375 

171 

REGEL 

1565 

80 

REGEL 

1755 

142 

REGEL 

1945 

187 

REGEL 

2135 

18 

REGEL 

1380 

91 

REGEL 

1570 

208 

REGEL 

1760 

252 

REGEL 

1950 

228 

REGEL 

21.40 

67 

REGEL 

1385 

71 

REGEL 

1575 

143 

REGEL 

1765 

245 

REGEL 

1955 

142 

REGEL 

2145 

109 

REGEL 

1390 

99 

REGEL 

1580 

220 

REGEL 

1770 

251 

REGEL 

1960 

80 

REGEL 

2150 

211 

REGEL 

1395 

142 

REGEL 

1585 

173 

REGEL 

1775 

222 

REGEL 

1965 

238 

REGEL 

2155 

163 

REGEL 

1400 

117 

REGEL 

1590 

103 

REGEL 

1780 

52 

REGEL 

1970 

247 

REGEL 

2160 

72 

REGEL 

1405 

114 

REGEL 

1595 

152 

REGEL 

1785 

67 

REGEL 

1975 

214 

REGEL 

2165 

91 

REGEL 

1410 

56 

REGEL 

1600 

142 

REGEL 

1790 

181 

REGEL 

1980 

199 




REGEL 

1415 

80 

REGEL 

1605 

98 

REGEL 

1795 

73 

REGEL 

1985 

142 





REKENWONDER 


Enkele algemene opmerkingen en tips 

• Wanneer men cijfergegevens dient in te voeren 
moet men er rekening mee houden dat de com¬ 
puter bij het geven van een uitkomst, achter deze 
uitkomst automatisch de grondeenheid uit het Sl- 
stelsel (System International) zal plaatsen, d.w.z.: 
m (meter), mQU2\ (vierkante meter),... Wanneer 
men nu een lengte van 23 cm heeft, kan men 
ofwel ’0.23’ intypen (in meter dus), ofwel geeft 
men gewoon ’23’ in, maar houdt men er rekening 
mee dat de eenheid achter de uitkomst niet 'me¬ 
ter’ moet zijn, maar 'centimeter' ! Tip: 1 m = 1000 
dm = 1000000 cm. 

• Het getal ’Pi’ is in dit programma gelijk aan 
3.14159265 II 

• Gebruik bij het invoeren van cijfergegevens 
NOOIT een komma, maar wel een punt ! Dus: 
'24.89' i.p.v. '24,89' !! 

• Er wordt in dit programma geen gebruik gemaakt 
van de diameter, maar wel van de straal (diame¬ 
ter = 2 x straal). 

• Als men ergens een keuze moet maken, staan 
de keuzemogelijkheden tussen haakjes achter de 
vraag. E}n van deze mogelijkheden moet dan, 
zonder de ’SHIFT’-toets, ingetypt worden. In de 
menu’s (hoofdmenu’s en andere) moet gewoon 


op de gewenste cijfer- of functietoets gedrukt 
worden. Alleen bij cijfergegevens is een druk op 
de ’RETURN’-toets nodig ! 

• Wanneer een uitkomst als begin '0,...' heeft, zal 
de computer deze '0' niet tonen, enkel een ’.’ als 
komma en daarna de getallen achter de komma I 
Bij het invoeren van gegevens echter zal de com¬ 
puter bv. '0.623' wel aanvaarden II 

• In verschillende gevallen mag een waarde niet 
gelijk zijn aan '0', omdat de computer dan moet 
delen door nul (wat wiskundig niet mag). De com¬ 
puter zal dan de vraag (of vragen) herhalen. Ook 
wanneer om bepaalde andere redenen een in¬ 
voer niet mogelijk is zal de computer dit melden 
en de vraag (of vragen) herhalen ! 

• Het indrukken van de ’RETURN’-toets als men 
getallen moet invoeren, heeft hetzelfde resultaat 
als het indrukken van de ’O’-toets I! 

GEBRUIKTE AFKORTINGEN : 

S = Oppervlakte (Surface). 
r = Straal, 
m = Meter. 

m2 = Vierkante meter. 
m3 = Kubieke meter. 

b = Basis (Gebruikt bij de piramide = lengte van 
1 zijde v.h. 

grondvlak). 
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z = Zijde (Gebruikt bij de piramide = afstand v.d. 
top v.d. 

piramide tot een hoekpunt v.h. grond¬ 
vlak). 

V = Volume, 
h = Hoogte. 

C = Celsius. 

F = Fahrenheit. 

% = Procent. 


Instrukties 

Na een korte inleiding tot het programma, ver¬ 
schijnt het MENU op het scherm. Men kan tus¬ 
sen 8 verschillende mogelijkheden kiezen. Tel¬ 
kens nadat de computer gedaan heeft met iets te 
berekenen uit ingevoerde gegevens dient men op 
de ’RETURN’-toets te drukken om terug naar het 
hoofdmenu te keren. In dit menu heeft men ook 
steeds de mogelijkheid om het programma te ver¬ 
laten en terug te keren naar BASIC. Hiervoor 
dient de ’SHIFT’-toets samen met de ’RETURN’- 
toets ingedrukt te worden. 

Nadat men }}n van de nummers van 1 t/m 8 heeft 
ingedrukt, verschijnt de titel achter dit nummer 
bovenaan het scherm in een andere kleur, waar¬ 
na men het programma echt kan gaan gebruiken 
n 

Bespreking 

1. Vierkantsvergelijkingen. 

Na T ingedrukt te hebben heeft men de moge¬ 
lijkheid om vierkantsvergelijkingen (of tweede¬ 
graadsvergelijkingen) op te lossen van het type 
axQU2\+bx+c=0. Dit is de vergelijking van een 
parabool in de wiskunde. Door de waarden van 
a, b en c in te voeren, kan de computer de over¬ 
blijvende ’x’ berekenen. Deze ’x’ is het snijpunt 
van de parabool met de X-as van het assenkruis. 
Meestal heeft de parabool geen of 2 snijpunten 
met de X-as, maar het is mogelijk dat hij slechts 
in }}n punt raakt. De x-en worden de wortels van 
de vergelijking genoemd ! Wanneer de waarde 
van ’a’ nul is, heeft men geen vergelijking van 
een parabool meer, maar wel de vergelijking van 
een rechte (eerste@graadsvergelijking van de 
vorm ax+b=0). Wanneer ’a’ EN ’b’ gelijk zijn aan 
nul, moet ’c’ ook nul zijn. Men heeft dan een 
identieke vergelijking. Is ’c’ echter niet gelijk aan 
nul, dan heeft men een valse vergelijking, want 
als ’c’ bijvoorbeeld ’3’ is krijgt men in de vergelij¬ 
king ’3=0’, wat natuurlijk niet kan !! 

Verder ga ik op dit deel van het programma niet 
in, omdat men hierover leert in het hoger middel¬ 
baar onderwijs en de volwassenen hiermee 
meestal niets kunnen doen in het dagelijkse le¬ 
ven. Voor de studenten echter kan het wel ge¬ 
makkelijk en nuttig zijn, omdat het zelf berekenen 
van de wortels van zo’n vergelijking toch wat tijd 
in beslag neemt. 

2. Oppervlakte- en volumeberekening. 


Als men in het hoofdmenu ’2’ gekozen heeft, 
komt men in een ander menu terecht, waar men 
kan kiezen tussen oppervlakte- en volumebere¬ 
kening van bepaalde figuren. Omdat de opper¬ 
vlakte en het volume van een vierkant (kubus), 
rechthoek (balk),... gemakkelijk te berekenen zijn, 
zijn in dit programma enkel de moeilijkere figuren 
voorzien, nl. piramide, kegel, cirkel en bol. 

Nadat men }}n van 5 mogelijkheden gekozen 
heeft, wordt er meestal nog eens de vraag ge¬ 
steld: "Wat is er gevraagd ?", met daarna enkele 
keuzemogelijkheden. Het eerste hiervan is steeds 
oppervlakte (S) of volume (V), maar er is ook de 
mogelijkheid ingebouwd om bijvoorbeeld de 
straal te berekenen van een bol, wanneer de 
oppervlakte of het volume reeds gegeven zijn. 
Wanneer men nu }}n van de mogelijkheden tus¬ 
sen haakjes (in KLEINE letter, dus zonder 
'SHIFT') indrukt, worden er 1 of meerdere gege¬ 
vens gevraagd, waarna de computer het gewen¬ 
ste zal berekenen. 

Enkele opmerkingen : 

Bij ’3’ (= oppervlakte piramide) wordt onmiddellijk 
naar de waarde van ’b’ en ’z’ gevraagd, dit zijn 
de basis van de piramide, en de afstand tussen 
de top van de piramide en }}n van de hoekpunten 
van zijn grondvlak (zie afkortingen). Let er wel op 
dat het hier gaat om een piramide met een VIER¬ 
KANT als grondvlak I! 

Bij ’5’ (= volume piramide-kegel) wordt er rechts¬ 
treeks gebruik gemaakt van de oppervlakte van 
het grondvlak (van om het even welke regelmati¬ 
ge veelhoek of een cirkel) om het volume en de 
hoogte te berekenen ! De oppervlakte van het 
grondvlak van de kegel kan men gaan berekenen 
bij ’T (= oppervlakte cirkel) !! 

3. Procent- er. gemiddeldeberekening. 

Wanneer men in het menu ’3’ gekozen heeft, kan 
men (nu met de functietoetsen) kiezen tussen 
procentberekening of gemiddeldebe@rekening. 
Bij procentberekening moet ingegeven worden 
hoeveel het maximum is (van bv. te behalen pun¬ 
ten van een leerling). Daarna wordt er gevraagd 
hoeveel er behaald is. Zo kan de computer 
berekenen hoeveel procent het 2de van het 1ste 
getal uitmaakt ! 

Bij gemiddeldeberekening moet men eerst inge¬ 
ven van hoeveel verschillende getallen men het 
gemiddelde wil berekenen. Wanneer men hier ’0’ 
intypt (gevolgd door ’RETURN’) zal de computer 
terugkeren naar het hoofdmenu. Indien een ander 
getal wordt ingegeven, vraagt de computer dat 
aantal getallen in te voeren (met natuurlijk steeds 
’RETURN’ ertussen). Als het laatste getal is inge¬ 
voerd, geeft de computer onmiddellijk het gemid¬ 
delde van al de getallen. 

4. Celsius Fahrenheit. 

Weer moet men met behulp van de functietoet¬ 
sen een keuze maken. Door middel van ’fl’ 
vraagt de computer naar een aantal graden Cel¬ 
sius en berekent hoeveel dit in graden Fahrenheit 
is, en met ’f3’ vraagt de computer een aantal gra- 
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den Fahrenheit en berekent hoeveel dit in graden 
Celsius is. Opmerking: -40{Celsius = -40{F- 
ahrenheit I! 

5. Opbrengst van een kapitaal. 

Als in het hoofdmenu ’5’ gekozen werd krijgt men 
nog een klein menu waarin gevraagd wordt wat 
men zou willen berekenen. Wanneer men T 
kiest, kan men bijvoorbeeld berekenen hoeveel 
een bedrag van 10000 fr. na 10 jaar opbrengt als 
men er bij de bank 5.5 % rente voor krijgt 
(17081.4 fr.). Ook interessant is dat men kan be¬ 
rekenen hoeveel jaar het duurt vooraleer dit be¬ 
drag bijvoorbeeld verdubbeld is, met 5.5 % rente 
(bijna 13 jaar I). Om dit te berekenen, moet men 
in het menu van "Opbrengst van een kapitaal" 
nummer ’4’ kiezen. Daarna vraagt de computer 
begin- en eindkapitaal (bv. 10000 en 20000 fr.), 
en de waarde van de rente (bv 5.5 %). Als dit 
alles is ingevoerd geeft de computer het resul¬ 
taat. Zo kan men ook nog een beginkapitaal en 
een rente berekenen, als de 3 andere faktoren 
telkens.gekend zijn I (Opmerking: voor 'guldens’ 
blijven alle berekeningen natuurlijk juist dezelfde, 
en is het programma ook te gebruiken, alleen 
wordt dan achter een resultaat foutief 'frank' ge¬ 
plaatst). 

6. Wortels en machten. 

Door in het hoofdmenu '6' te kiezen kan men 
weer 2 dingen gaan doen: worteltrekkingen of 
machten. Bij worteltrekkingen moet de machts- 
wortel ingegeven worden, en uit welk getal deze 
moet getrokken worden. Zo is bijvoorbeeld de 
3de machtswortel uit 125 gelijk aan 5 
(5x5x5=125). Als men in plaats van fl, f3 kiest, 
kan men machten gaan berekenen. De computer 
vraagt de macht en het getal en geeft daarop de 
uitkomst. Zo is bijvoorbeeld de 2.5de macht van 
2.4 gelijk aan 8.92335364 ! 

7. Sinus, Cosinus, Tangens,... 

Wanneer men in het hoofdmenu '7' ingedrukt 
heeft, heeft men de mogelijkheid om ofwel van 
een hoek de goniometrische getallen (sinus, cosi¬ 
nus, tangens, cosecans, secans en cotangens) te 
vragen. Men kan (met behulp van f3) ook een 
sinus, cosinus of tangens ingeven, waarna de 
computer de hoek geeft. Normaal werkt de 
Commodore 64 in radialen, maar in dit program¬ 
ma is het mogelijk gemaakt om de hoek gewoon 
in graden op te geven en toch de juiste goniome¬ 
trische getallen te bekomen. Ook wanneer men 
sinus, cosinus of tangens ingevoerd heeft, wordt 
de uitkomst (de hoek dus) ook in graden weerge¬ 
geven en niet in radialen I! 

8. Weekdagen bepalen en priemgetallen. 
BESPREKING : 

1) Weekdagen bepalen. 

Hiermee kan men te weten komen op welke dag 
bijvoorbeeld de 1ste januari van het jaar 1992 
valt (Woensdag). Men heeft 2 mogelijkheden om 
de datum in te geven. Ofwel geeft men dag, 
maand en jaar in gescheiden door komma’s (bv. 
01,01,92 (of ook: 1,1,92)), ofwel drukt men tel¬ 


kens op 'RETURN', in plaats van op de komma, 
dus: 1 (RETURN) 1 (RETURN) 92 (RETURN). 
Wat niet mag is het ingeven van een jaar be¬ 
staande uit 4 cijfers, dus niet '1992', maar wel 
'92' (deze "kalender" is dus geldig tot het jaar 
2000). Wanneer een niet bestaande datum wordt 
ingevoerd, wordt men hierop attent gemaakt door 
de computer I 
3) Priemgetal of niet ?! 

Hiermee kan men te weten komen of een getal al 
of niet een priemgetal is. Een priemgetal is een 
getal dat uitsluitend deelbaar is door }}n en zich¬ 
zelf I Is het ingevoerde getal geen priemgetal dan 
geeft de computer de kleinste deler ('1' niet mee¬ 
geteld). 

5) Alle priemgetallen tot... 

Wanneer ’f5’ gekozen wordt vraagt de computer 
tot welk getal hij de priemgetallen moet bereke¬ 
nen. Wanneer men bijvoorbeeld '103' indrukt (ge¬ 
volgd door 'RETURN') geeft de computer alle 
priemgetallen tot en met '103'. In basic kunnen 
deze berekeningen wel even duren, maar in ma¬ 
chinetaal zijn ze snel berekent I! 

Uitleg bij het programma 'REKENWONDER'. 

10 Run/stop, Restore, List, Save en Shift 

+ com.-toets uitschakelen + toetsen 
repeterend maken. 

20-90 Kleine introductie. 

100-130 Titelscherm (+ ’CLR'). 

140-260 Hoofdmenu. 

270-510 Vierkantsvergelijkingen oplossen. 
520-1000 Oppervlakte- en volumeberekening : 
520-620 Menu. 

630-690 Oppervlakte cirkel. 

700-760 Oppervlakte bol. 

770-820 Oppervlakte piramide. 

830-930 Volume piramide-kegel. 

940-1000 Volume bol. 

1010-1190 Procent- en gemiddeldeberekening : 
1010-1080 Menu. 

1090-1120 Procentberekening. 

1130-1190 Gemiddeldeberekening. 

1200-1310 Celsius Fahrenheit : 

1200-1270 Menu. 

1280-1290 Celsius - Fahrenheit. 

1300-1310 Fahrenheit - Celsius. 

1320-1470 Opbrengst van een kapitaal : 
1320-1390 Menu. 

1400-1410 Eindkapitaal berekenen. 

1420-1430 Beginkapitaal berekenen. 

1440-1450 Intrest berekenen. 

1460-1470 Aantal jaar berekenen. 

1480-1610 Wortels en machten : 

1480-1540 Menu. 

1550-1580 Worteltrekkingen. 

1590-1610 Machten. 

1620-2010 Sinus, Cosinus, Tangens,... : 
1620-1690 Menu. 

1700-1810 Hoek - Goniom. getallen. 

1820-2010 Goniom. getallen - Hoek. 
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2020-2680 

2020-2100 

2110-2250 

2260-2390 

2400-2680 

2690-2710 

2720-2860 

2870-2900 

2910 

2920 


Weekdagen bepalen en priemgetallen 
Menu. 

Alle priemget. tot... 

Priemgetal of niet ?! 

Weekdagen bepalen. 

Resetten van het programma. 

Goto- en gosub-routines. 

Terugkeren naar het hoofdmenu. 
Wachtlus. 

END 


200 


210 


220 


O 

1 

, 1 

1 

1 

rem ***************** 

230 

240 


1 

2 

rem ** rekenwonder ** 



1 

3 

rem ***************** 

250 

o 

1 

1 

4 

rem geschreven door tim verlinden 

260 

1 

5 

rem ***************************** 

270 


1 

6 

rem 



. 1 

1 

7 

rem heist op den berg 


o 

1 

8 

rem belgie 

280 


9 

rem ***************************** 


. 1 . 

I 

1 

10 

poke808,254:poke657,128:poke774,0: 
poke818,32:poke792,193:poke650,128 

290 



1 

I 

20 

dima(100),c(100):poke53280,4:poke5 

300 

o 

1 

I 


3281,14:a$="[SPACE]tim[SPACE]prese 
nteert[SPACE] " :print"[CTRL-7][SHIF 

T CLR] " 



o 

i 

1 

1 

30 

foru=ltol7:a(u)=abs(asc(mid$(a$,u, 

1 )) -64 ) :next : a=l 

310 

1 

40 

c(a)=int(17*rnd(1) ) +1:ifa=lthen70 

320 


I 

50 

foru=ltoa-l : ifc(a)<>c(u)thennext : g 
oto70 


o 

1 

1 

60 

goto40 

330 

1 

1 

70 

pokel514+c(a),a(c(a) ) :a=a+l:ifa=le 
n(a$)+lthen90 




1 

1 

80 

goto40 


o 

1 

1 

1 

90 

gosub2910:foru=55787to55803:pokeu, 

1:next:gosub2910 

340 

1 

100 

poke53280,5:poke53281,7:print"[SHI 

350 


1 

1 


FT CLR][12xCRSR-DOWN]" 

360 

o 

1 

1 

1 

110 

printtab(14)"[CTRL-3]rekenwonder": 
printtab(14)"[COM-4]DDDDDDDDDDD[9x 

370 

1 * 


CRSR-DOWN]" 

380 


1 

120 

print"[2xSPACE][COM-1][CTRL-9]copy 

390 


I 

1 


right[SPACE]198 9[SPACE]-[SPACE]tim 

400 

410 

o 

i 

1 

1 

130 

gosub2910:gosub2910:poke53280,2:po 
ke53281,6 

420 


1 

1 

140 

print"[SHIFT-CLR]"tab(18)"[CTRL-2] 
[CTRL-9][CRSR-DOWN]MENU[2xCRSR-DOW 

430 

o 

1 

1 


N]":clr:print"[CTRL-N][SPACE]1[SPA 

CE]=[SPACE]Vierkantsvergelijkingen 

440 


1 

1 


.[CRSR-DOWN]" 


o 

1 

1 

1 

150 

print"[SPACE]2[SPACE]=[SPACE]Opper 
vlakte-[SPACE]en[SPACE]volumeberek 

450 

1 

1 

1 

160 

ening.[CRSR-DOWN]" 

print"[SPACE]3[SPACE]=[SPACE]Proce 

460 


o 

! 

1 


nt-[SPACE]en[SPACE]gemiddeldeberek 
ening.[CRSR-DOWN]" 

470 

1 

I 

170 

print"[SPACE]4[SPACE]=[SPACE]Celsi 
u s[SPACE]<->[SPACE]Fahrenheit. [CRS 

480 



i 

1 


R-DOWN]" 

o 

1 

1 

180 

print"[SPACE]5[SPACE]=[SPACE]Opbre 
nst[SPACE]van[SPACE]een[SPACE]kapi 
taal.[CRSR-DOWN]" 

490 



1 

[ 

1 

190 

print"[SPACE]6[SPACE]=[SPACE]Worte 
ls[SPACE]en[SPACE[machten.[CRSR-DO 


o 

1 

1 





WN] " 

print"[SPACE]7[SPACE]=[SPACE]Sinus 
, [SPACE]Cosinus, [SPACE]Tangens, . . . 
t [ CRSR-DOWN ] " 

print"[SPACE]8[SPACE]=[SPACE]Weekd 
agen[SPACE]bepalen[SPACE]en[SPACE] 
priemgetallen." 

print"[CRSR-DOWN][CRSR-RIGHT][CTRL 
9]'Shift[SPACE]+[SPACE]Return'[SP 
ACE]=[SPACE]EXIT[CRSR-ÜP]"rprintta 
b(10)"[2xCRSR-DOWN]*************** 
*****" 

getj$:ifj$=""then230 

j=val(j$):on j goto 270,520,1010,1 

200,1320,1480,1620,2020 

ifj$=chr$(141)then2690 

gotol40 

print"[SHIFT-CLR][CRSR-DOWN][COM-8 
][8xCRSR-RIGHT]Vierkantsvergelijki 
ngen. " 

printtab(8)"- 

print"[CTRL-2] [CRSR-DOWN]Oplossen [ 
SPACE]van[SPACE]vierkantsvergelijk 
ingen" 

print"van[SPACE]het[SPACE]type:[SP 

ACE][2xCRSR-DOWN]ax[CRSR-UP]2[CRSR 

-DOWN] +bx+c=0" .-print 

print"Voer[SPACE]de[SPACE]coeffici 

enten[SPACE]in:":print 

input"[SPACE]a[SPACE] = " ; a :input"[S 

PACE]b[SPACE]=";b:input"[SPACE]c[S 

PACE]=";c 

print"[SHIFT-CLR][CRSR-DOWN]De[SPA 
CE]vergelijking[SPACE]";a;"[CRSR-L 
EFT]X[CRSR-UP]2[CRSR-DOWN][SPACE]+ 
" ,‘ b; '5 [CRSR-LEFT] x [SPACE] +" ; c; "= [SP 
ACE]0[CRSR-DOWN]":ifa=0then380 
d=b*b-4*a*c:ifd=0then370 
ifd<0then420 

xl=(-b-sqr(d))/(2*a):x2=(-b+sqr(d) 

)/ (2*a) :goto440 
x=-b/(2*a):goto460 
ifb=0thën400 
x=-c/b:goto480 
ifc=0then510 
goto500 

print"[COM-7]Heeft[SPACE]geen[SPAC 
E]reele[SPACE]wortels[SPACE]!!" 
print"[CTRL-2][CRSR-DOWN]De[SPACE] 
discriminant[SPACE]is:[COM-7][SPAC 
E]";d"[CTRL-2]":goto2870 
prinf'Heeft[SPACE]als[SPACE]wortel 
s: [SPACE][CRSR-DOWN]" 
print"[COM-7]xl[SPACE]=[SPACE]";xl 
:print"[CRSR-DOWN]x2[SPACE]=[SPACE 
]";x2"[CTRL-2]":goto2870 
print"Heeft[SPACE]2[SPACE]gelijke[ 
SPACE]wortels:[SPACE][CRSR-DOWN]" 
print"[COM-7]xl[SPACE]=[SPACE]x2[S 
PACE]=[SPACE]";x"[CTRL-2]":goto287 
0 

print"Is[SPACE]van[SPACE]de[SPACE] 
eerste[SPACE]graad[SPACE]met[SPACE 
]als[SPACE]wortel:[SPACE][CRSR-DOW 
N] " 

print"[COM-7]x[SPACE]=[SPACE]";x"[ 
CTRL-2]":goto2870 
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- Print out - Print out ■ Print out - Print out - Print out - 


500 print"[COM-7]Is[SPACE]een[SPACE]va 
lse[SPACE]vergelijking[SPACE]!![CT 
RL 2]":goto287Q 

510 print"[COM-7]Is[SPACE]een[SPACE]id 
entieke[SPACE]vergelijking[SPACE]! 

![CTRL-2]":goto2870 

520 print"[SHIFT-CLR]"tab(9)"[CRSR-DOW 
N][COM-8]Oppervlakteberekening." 

530 printtab(9)"- 

[CRSR-DOWN]" 

540 print"[CTRL-2][SPACE]1[SPACE]=[SPA 
CE]Cirkel.":print"[CRSR-DOWN][SPAC 
E]2[SPACE]=[SPACE]Bol.":print"[CRS 
R-DOWN][SPACE]3[SPACE]=[SPACE]Pira 
mide[SPACE](met[SPACE]als"; 

550 print"[SPACE]grondvlak[SPACE]een[1 
9xSPACE]vierkant)." 

560 printtab(11)"[CRSR-DOWN][COM-8]Vol 

umeberekening.":printtab(11)"- 

-[CRSR-DOWN]" 

570 print"[CTRL-2][SPACE]4[SPACE]=[SPA 
CE]Bol.":print"[CRSR-DOWN][SPACE]5 
[SPACE]=[SPACE]Piramide-Kegel.[CRS 
R-DOWN]" 

580 print"[2xSPACE](Bij[SPACE]'5'[SPAC 
E]wordt[SPACE]er[SPACE]rechtstreek 
s[SPACE]ge-" 

590 print"[2xSPACE]bruik[SPACE]gemaakt 
[SPACE]v.d.[SPACE]oppervlakte[SPAC 
E]van[6xSPACE]het[SPACE]grondvlak) 

.[CRSR-UP]":gosub2730 
600 getj$:ifj$=""then600 
610 j=val(j$):on j goto 630,700,770,94 
0, 830 

620 goto520 

630 print"[SHIFT-CLR][CRSR-DOWN]Wat[SP 
ACE]is[SPACE]er[SPACE]gevraagd[SPA 
CE]?[SPACE](S[SPACE]of[SPACE]r)" 
640 getj$:ifj$=""then640 
650 ifj$=chr$(83)then680 
660 ifj$=chr$(82)then690 
670 goto630 

680 print"[SHIFT-CLR][CRSR-DOWN]":gosu 
b2770:s=*(r*r):goto2830 
690 print"[SHIFT-CLR][CRSR-DOWN]":gosu 
b2750:r=sqr(s/):goto2850 
700 print"[SHIFT-CLR][CRSR-DOWN]Wat[SP 
ACE]is[SPACE]er[SPACE]gevraagd[SPA 
CE]?[SPACE](S[SPACE]of[SPACE]r)" 
710 getj$:ifj$=""then710 
720 ifj$=chr$(83)then750 
730 ifj$=chr$(82)then760 
740 goto700 

750 print"[SHIFT-CLR][CRSR-DOWN]":gosu 
b2770:s=4**(r*r):goto2830 
760 print"[SHIFT-CLR][CRSR-DOWN]":gosu 
b2750:r=sqr(s/(4*)):goto2850 
770 print"[SHIFT-CLR][CRSR-DOWN]":gosu 
b2 7 4 0:input"Gee f[SPACE]waarde[SPAC 
E]van[SPACE] ' z' [SPACE]";z:print 
780 if(z*z)-((b/2)*(b/2)) <=0thenprint" 
Foute[SPACE]cijfergegevens[SPACE]! 

!":goto820 

790 x=sqr((z*z)-((b/2)*(b/2))):y=(x*b) 
/2:s= (y*4) + (b*b) 

800 print’Opp.[SPACE]piramide[SPACE](4 
[SPACE]zijvlakken[SPACE]+[SPACE]gr 
ondvlak)":print"=[COM-7]"s"m[CRSR- 


ÜP]2[CRSR-DOWN][CTRL-2]" 

810 print"[CRSR-DOWN](De[SPACE]4[SPACE 
]zijvlakken[SPACE]elk[SPACE]=[COM- 
7]”y"m[CRSR-UP]2[CRSR-DOWN][CTRL-2 
][SPACE])":goto2870 
820 gosub2910:goto770 

830 print"[SHIFT-CLR][CRSR-DOWN]Wat[SP 
ACE]is[SPACE]er[SPACE]gevraagd[SPA 
CE]? [SPACE] (V, [SPACE] S [SPACE] Of [SP 
ACE]h)" 

840 getj$:ifj$=""then840 
850 ifj$=chr$(86)then890 
860 ifj$=chr$(83)then900 
870 ifj$=chr$(72)then920 
880 goto830 

890 print"[SHIFT-CLR][CRSR-DOWN]":gosu 
b2750:gosub2760:v=(s*h)/3:goto2840 
900 print"[SHIFT-CLR][CRSR-DOWN]":gosu 
b2780:gosub2760:ifh=0then900 
910 s=(3*v)/h:goto2830 

920 print"[SHIFT-CLR][CRSR-DOWN]":gosu 
b2780:gosub2750:ifs=0then920 
930 h=(3*v)/s:print"[CRSR-DOWN]De[SPAC 
E]hoogte[SPACE]=[COM-7]"h"m[CTRL-2 
]":goto2870 

940 print"[SHIFT-CLR][CRSR-DOWN]Wat[SP 
ACE]is[SPACE]er[SPACE]gevraagd[SPA 
CE]?[SPACE](V[SPACE]of[SPACE]r)" 
950 getj$:ifj$=""then950 
960 ifj$=chr$(86)then990 
970 ifj$=chr$(82)thenl000 
980 goto940 

990 print"[SHIFT-CLR][CRSR-DOWN]":gosu 
b2770:v=(4/3)**(r*r*r):goto2840 
1000 print"[SHIFT-CLR] [CRSR-DOWN]":gosu 
b2780:r=(v/((4/3)*))~(1/3):goto285 
0 

1010 print"[SHIFT-CLR] [CRSR-DOWN] [4xCRS 
R-RIGHT][COM-8]Procent-[SPACE]en[S 
PACE]Gemiddeldeberekening." 

1020 print" [4xCRSR-RIGHT]- 

-[2xCRSR-DOWN]" 

1030 print"[CTRL-2]fl) [SPACE]Procentber 
ekening." 

1040 print"[CRSR-DOWN]f3) [SPACE]Gemidde 
ldeberekening.":gosub2720 
1050 getj$:ifj$=""thenl050 
1060ifj$=chr$(133)thenl090 
1070 ifj$=chr$(134)thenll30 
1080 gotolOlO 

1090 print"[SHIFT-CLR]"tab(11)"[CRSR-DO 
WN][COM-8]Procentberekening.":prin 

ttab(ll) "---[2xCRSR 

-DOWN]" 

1100 input"[CTRL-2]Maximum[SPACE]te[SPA 
CE]behalen:[SPACE]";m:input"[CRSR- 
DOWN] Hoeveel[SPACE]is[SPACE]er[SPA 
CE]behaald:[SPACE]";b 
1110 print: ifm=0thenll00 
1120 t=m/10:p=(b/t)*10 :printb "op"m"=[C 
OM 7]"p"Procent[CTRL-2][SPACE]!":g 
oto2870 

1130 print"[SHIFT-CLR]"tab(9)"[CRSR-DOW 
N][COM-8]Gemiddeldeberekening." 

1140 printtab (9) "-[ 

2xCRSR-DOWN]" 

1150 print"[CTRL-2]Van[SPACE]hoeveel[SP 
ACE]getallen[SPACE]wilt[SPACE]U[SP 
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ACE]het" 

1160 input"gemiddelde[SPACE]berekenen:[ 
SPACE]";x:ifx=Qthen2870 

1170 dimb(x) :foru=ltox 

1180 print"[CRSR-DOWN]Geef[SPACE]waarde 
[SPACE]van[SPACE]Nr.";u;:inputb(u) 
:next:so=0 

1190 foru=ltox:so=so+b(u):next:print"[C 
RSR-DOWN]Het[SPACE]gemiddelde[SPAC 
E]=[COM-7]"som/x"[CTRL-2]!":goto28 
70 

1200 print"[SHIFT-CLR]"tab(8)"[CRSR-DOW 
N][COM-8]Celsius[SPACE]<->[SPACE]F 
ahrenheit." 

1210 printtab (8) "- 

-[2xCRSR-DOWN]" 

1220 print"[CTRL-2]fl) [SPACE]Celsius[SP 
ACE]->[SPACE]Fahrenheit." 

1230 print"[CRSR-DOWN]f3) [SPACE]Fahrenh 
eit[SPACE]->[SPACE]Celsius.":gosub 
2720 

1240 getj$:ifj$=""thenl240 

1250 ifj$=chr$(133)thenl280 

1260 if j$=chr$ (134) thenl300 

1270 gotol200 

1280 input" [SHIFT-CLR] [CRSR-DOWN]Geef[S 
PACE] het [SPACE] aantal [SPACE;] graden 
[SPACE]Celsius:[SPACE]";c:print:f= 
(c*9)/5+32 

1290 print""c"graden[SPACE]C. [SPACE] = [C 
OM 7]"f"graden[SPACE]F.[CTRL-2]":g 
oto2870 

1300 input"[SHIFT-CLR] [CRSR-DOWN]Geef[S 
PACE]het[SPACE]aantal[SPACE]graden 
[SPACE]Fahrenheit:[SPACE]";f:print 
:c=(f-32)*5/9 

1310 print""f"graden[SPACE]F. [SPACE] = [C 
OM 7]"c"graden[SPACE]C.[CTRL-2]":g 
oto2870 

1320 print"[SHIFT-CLR] [CRSR-DOWN] [6xCRS 
R-RIGHT][COM-8]Opbrengst[SPACE]van 
[SPACE]een[SPACE]kapitaal." 

1330 print" [6xCRSR-RIGHT]- 

-[2xCRSR-DOWN]":print" 

[CTRL-2]Wat[SPACE]is[SPACE]er[SPAC 
E]gevraagd[SPACE]?" 

1340 print"[20xCOM-T] [CRSR-DOWN]":print 
"[CRSR-DOWN][SPACE]1[SPACE]=[SPACE 
]Het[SPACE]eindkapitaal." 

1350 print"[CRSR-DOWN] [SPACE]2[SPACE] = [ 
SPACE]Het[SPACE]beginkapitaal.":pr 
int"[CRSR-DOWN][SPACE]3[SPACE]=[SP 
ACE]De[SPACE]intrest." 

1360 print"[CRSR-DOWN] [SPACE]4[SPACE] = [ 
SPACE]Het[SPACE]aantal[SPACE]jaar[ 
SPACE]v.d.[SPACE]uitzetting.":gosu 
b2730 

1370 getj$:ifj$=""thenl370 

1380 j=val(j$) :on j goto 1400,1420,1440 
, 1460 

1390 gotol320 

1400 print"[SHIFT-CLR] [CRSR-DOWN]"rgosu 
b2790:gosub2800:gosub2810:g=k*(1+i 
/100)~n 

1410 print"[CRSR-DOWN]Het[SPACE]eindkap 
itaal[SPACE]=[COM-7]"g"frank[CTRL- 
2][SPACE]!":goto2870 

1420 print"[SHIFT-CLR] [CRSR-DOWN]":gosu 


b282Q:gosub2800:gosub2810:k=g/((1+ 
i/100)~n) 

1430 print"[CRSR-DOWN]Het[SPACE]beginka 
pitaal[SPACE]=[COM-7]"k"frank[CTRL 
2][SPACE]!":goto2870 
1440 print"[SHIFT-CLR] [CRSR-DOWN]":gosu 
b2790:gosub2820:gosub2810: ifk=0orn 
=0thenl440 

1450 i=100*(((g/k)~(1/n))-1) :print"[CRS 
R-DOWN]De[SPACE]intrest[SPACE]=[CO 
M 7]"i"%[CTRL-2][SPACE]!":goto2870 
14 60 print"[SHIFT-CLR] [CRSR-DOWN]":gosu 
b2790:gosub2820:gosub2800: ifk=0org 
=0ori=0thenl460 

1470 n=log(g/k)/log(l+i/100) rprint"[CRS 
R-DOWN]Het[SPACE]aantal[SPACE]jaar 
[SPACE]=[COM-7]"n"[CTRL-2]!":goto2 
870 

1480 print"[SHIFT-CLR]"tab(10)"[CRSR-DO 
WN][COM-8]Wortels[SPACE]en[SPACE]m 
achten." 

1490 printtab (10) "-[2 

xCRSR-DOWN]":print"[CTRL-2]fl)[SPA 
CE]Worteltrekkingen." 

1500 print"[CRSR-DOWN]f3) [SPACE]Machten 
.":gosub2720 

1510 getj$:ifj$=""thenl510 
1520 ifj$=chr$(133)thenl550 
1530 if j$=chr$ (134) thenl590 
1540 gotol480 

1550 print"[SHIFT-CLR]"tab(11)"[CRSR-DO 
WN][COM-8]Worteltrekkingen.":print 

tab (11) "-[2xCRSR-D 

OWN] " 

1560 input"[CTRL-2]Geef[SPACE]waarde[SP 
ACE]v.d.[SPACEJmachtswortel:[SPACE 
]";m:ifm=0thenl550 

1570 input" [CRSR-DOWN]Uit[SPACE]welk[SP 
ACE]getal:[SPACE]";g:w=g~(1/m) 

1580 print"[CRSR-DOWN]De"m"-de[SPACE]ma 
chtswortel[SPACE]uit"g"":print"[CR 
SR-DOWN]=[COM-7]"w"[CTRL-2]!":goto 
2870 

1590 print"[SHIFT-CLR]"tab(16)"[CRSR-DO 
WN][COM-8]Machten.":printtab(16)"- 

-[2xCRSR-DOWN]" 

1600 input" [CTRL-2] Geef [SPACE] waarde [SP 
ACE] v . d .[SPACE] macht :[SPACE]" ;m:in 
put "[CRSR-DOWN] Van [SPACE] welk [SPAC 
E] getal: [SPACE] g : o=g~m 
1610 print"[CRSR-DOWN]De"m"-de[SPACE]ma 
cht [SPACE] van"g"=[COM-7]"o" [CTRL-2 
]!":goto2870 

1620 print"[SHIFT-CLR]"tab(6)"[CRSR-DOW 
N][COM-8]Sinus,[SPACE]Cosinus,[SPA 
CE]Tangens,..." 

1630 printtab (6) "- 

-[2xCRSR-DOWN]" 

1640 print"[CTRL-2]fl) [SPACE]Hoek[SPACE 
]->[SPACE]Goniometrische[SPACE]get 
allen." 

1650 print"[CRSR-DOWN]f3) [SPACE]Goniome 
trisch[SPACE]getal[SPACE]->[SPACE] 
Hoek.":gosub2720 
1660 getj$:ifj$=""thenl660 
1670 ifj$=chr$(133)thenl700 
1680 ifj$=chr$(134)thenl820 
1690 gotol620 
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1700 print"[SHIFT-CLR]"tab(4)"[CRSR-DOW 
N][COM-8]Hoek[SPACE]->[SPACE]Gonio 
metrische[SPACE]getallen." 

1710 printtab (4) "- 

-[2xCRSR-DOWN]" 

1720 print"[CTRL-2]Geef[SPACE]de[SPACE] 
waarde[SPACE]van[SPACE]de[SPACE]ho 
ek[SPACE](in[SPACE]graden):":input 
h 

1730 ifh=0orh=360thenl990 
1740 ifh=180then2000 
1750 ifh=90then2010 

17 60 si=sin(h/57.29578) :si$=str$ (si) :co 
—cos(h/57.29578):co$=str$(co) 

1770 tg=tan(h/57.29578) :tg$=str$(tg) :cs 
=l/sin(h/57.29578):cs$=str$(cs) 
1780 se=l/cos(h/57.29578) :se$=str$(se) : 

ct=l/tan(h/57.29578) :ct$=str$ (ct) 
1790 print"[CRSR-DOWN]SINUS[5xSPACE]=[C 
OM 7]"si$"[CTRL-2]":print"COSINUS[ 
3xSPACE]=[COM-7]"co$"[CTRL-2]" 

1800 print"TANGENS[3xSPACE] = [COM-7]"tg$ 
"[CTRL-2]":print"COSECANS[2xSPACE] 
=[COM-7]"cs$"[CTRL-2]" 

1810 prinf'SECANS [4xSPACE] = [COM-7]"se$" 
[CTRL-2]":print"COTANGENS[SPACE]=[ 
COM-7]"ct$"[CTRL-2]":goto2870 
1820 print"[SHIFT-CLR]"tab(6)"[CRSR-DOW 
N][COM-8]Goniometrisch[SPACE]getal 
[SPACE]->[SPACE]Hoek." 

1830 printtab (6) "- 

-[2xCRSR-DOWN]":print"[CTRL-2 

]Wat[SPACE]is[SPACE]er[SPACE]gegev 
en[SPACE]?" 

1840 print"[CRSR-DOWN] [SPACE]1[SPACE] = [ 
SPACE]Sinus":print"[CRSR-DOWN][SPA 
CE]2[SPACE]=[SPACE]Cosinus":print" 
[CRSR-DOWN][SPACE]3[SPACE]=[SPACE] 
Tangens":gosub2730 
1850 getj$:ifj$=""thenl850 
1860 j=val (j$) : on j goto 1880,1920,1960 
1870 gotol820 

1880 input"[SHIFT-CLR] [CRSR-DOWN]Welk[S 
PACE]is[SPACE]de[SPACE]sinus[SPACE 
]";si:ifsi>lorsi<-lthenl970 
1890 ifsi=lthenh=90:goto2860 
1900ifsi=-lthenh=-90:goto2860 
1910 h=atn(si/sqr(-si*si+l))*57.29578:g 
oto2860 

1920 input"[SHIFT-CLR] [CRSR-DOWN]Welk[S 
PACE]is[SPACE]de[SPACE]cosinus[SPA 
CE]";co:ifco>lorco<-lthenl980 
1930 ifco=lthenh=0 : goto2860 
1940 ifco=-lthenh=180:goto2860 
1950 h=(-atn(co/s%r(-co*co+l))+/2)*57.2 
9578:goto2860 

1960 input"[SHIFT-CLR] [CRSR-DOWN]Welk[S 
PACE]is[SPACE]de[SPACE]t angen s[SPA 
CE]";tg:h=atn(tg)*57.29578:goto286 
0 

1970 print"[CRSR-DOWN]Foutieve[SPACE]wa 
arde[SPACE]!![CRSR-DOWN]":gosub291 
0:gotol880 

1980 print"[CRSR-DOWN]Foutieve[SPACE]wa 
arde[SPACE]!![CRSR-DOWN]":gosub291 
0:gotol920 

1990 si$="[SPACE]0":co$="[SPACE]1":tg$= 
" [SPACE]0":cs$="[SPACE]/":se$="[SP 


ACE]1":ct$="[SPACE]/":gotol790 
2000 si$="[SPACE]0":co$="-l":tg$="[SPAC 
E]0":cs$="[SPACE]/":se$="-l":ct$=" 
[SPACE]/":gotol790 

2010 si$="[SPACE]1":co$="[SPACE]0":tg$= 
"[SPACE]/":cs$="[SPACE]1":se$="[SP 
ACE]/":ct$="[SPACE]0":gotol790 
2020 print"[SHIFT-CLR] [CRSR-DOWN] [COM-8 
][2xSPACE]Weekdagen[SPACE]bepalen[ 
SPACE]en[SPACE]priemgetallen." 

2030 print" [2xSPACE]--- 

-[CTRL-2][CRSR-DOWN 

]" 

2040 print"fl) [SPACE]Weekdagen[SPACE]be 
palen.":print"[CRSR-DOWN]f3)[SPACE 
]Priemgetal[SPACE]of[SPACE]niet[SP 
ACE]? ! " 

2050 print"[CRSR-DOWN]f5) [SPACE]Alle[SP 
ACE]priemgetallen[SPACE]tot[SPACE] 
...":gosub2720 
2060 getj$:ifj$=""then2060 
2070 if j$=chr$ (133) then2400 
2080ifj$=chr$(134)then2260 
2090ifj$=chr$(135)then2110 
2100 goto2020 

2110 print"[SHIFT-CLR]"tab(7)"[CRSR-DOW 
N][COM-8]Alle[SPACE]priemgetallen[ 
SPACE]tot[SPACE]..." 

2120 printtab (7) "- 

-[CTRL-2][CRSR-DOWN]" 

2130 input"Alle[SPACE]priemgetallen[SPA 
CE]t/m[SPACE]welk[SPACE]get al[SPAC 
E]?[5xSPACE]p:print:z=0:g=4:a=l 
2140 gosub2200 
2150ifa>pthen2190 
2160 z=z+l 

2170 print"[COM-7] [CRSR-RIGHT]"a"[CTRL- 
2]";:ifint(z/5)=z/5thenprint 
2180 goto2140 

2190 print"[CRSR-UP] [CRSR-DOWN]":goto28 
70 

2200 a=a+2 : d=3 : al=sqr (a) 

2210 ifd>althenreturn 
2220 c=a/d 

2230 ifc=int (c)then2200 
2240 d=d+2 
2250 goto2210 

2260 print"[SHIFT-CLR]"tab(9)"[CRSR-DOW 
N][COM-8]Priemgetal[SPACE]of[SPACE 
]niet[SPACE]?!" 

2270 printtab (9) "-[ 

CTRL-2][CRSR-DOWN]" 

2280 print"Voer[SPACE]het[SPACE]getal[S 
PACE]in[SPACE]dat[SPACE]moet[SPACE 
]onderzocht" 

2290 input"worden[SPACE] (groter[SPACE]d 
an[SPACE]1)[SPACE]";g:print"[CRSR- 
DOWN] [CRSR-RIGHT][CTRL-9]EVEN[SPAC 
E]GEDULD[SPACE]A.U.B." 

2300 ifg<=lorg<>int(g)then2260 
2310ifg<4then2390 
2320 l=sqr (g) : d=2 
2330 q=g/d 

2340 ifqOint (q) then2370 
2350 foru=1305tol322:pokeu,32:next:prin 
t"[CRSR-DOWN]"g"=[SPACE][COM-7][CT 
RL 9]GEEN[SPACE]priemgetal[SPACE]! 

![CTRL-2]" 
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2360 print"[CRSR-DOWN] [SPACE]De[SPACE]k 
leinste[SPACE]deler[SPACE]is[COM-7 
]"d"[CTRL-2]":goto2870 
2370 d=d+l: ifd>lthen2390 
2380 goto2330 

2390 foru=1305tol322:pokeu,32:next:prin 
t"[CRSR-DOWN]"g"=[SPACE][COM-7][CT 
RL 9]PRIEMGETAL[SPACE]!![CTRL-2]": 
goto2870 

2400 print"[SHIFT-CLR]"tab(11)"[CRSR-DO 
WN][COM-8]Weekdagen[SPACE]bepalen. 

" :printtab (11) "-[ 

CTRL-2]" 

2410 dimdw$(8),mi(13) 

2420 dw$(0)="ZATERDAG":dw$(l)="ZONDAG": 

dw$(2)="MAANDAG":dw$(3)="DINSDAG" 
2430 dw$(4)="WOENSDAG":dw$(5)="DONDERDA 
G":dw$(6)="VRIJDAG" 

2440 mi (1) =1 :mi (2) =4 :mi (3) =4 :mi (4) =0 :mi 
(5)=2:mi(6)=5:mi(7)=0:mi(8)=3:mi(9 
)=6 

2450 mi (10) =8 :mi (11) =4 :mi (12) =6 
2460 print"[CRSR-DOWN]Geef[SPACE]de[SPA 
CE]dag,[SPACE]de[SPACE]maand[SPACE 
]en[SPACE]het[SPACE]jaar, " 

2470 input"gescheiden[SPACE]door[SPACE] 
komma's[SPACE](dd,mm,jj).[5xSPACE] 

";da,mo,yr 

2480 ifmo<lormo>12then2560 
2490 ifda<lorda>31then2560 
2500 ifyr<0oryr>99then2560 
2510 gosub2570 

2520 wo=(int(yr/4))+yr:wo=wo+mi(mo)+da: 

ws=wo:wo=int(wo/7):wo=ws-(wo*7j 
2530ifle=lthenwo=wo-l 
2540 ifwo<0thenwo=wo+7 

2550 print"[2xCRSR-DOWN]"da;"/";mo;"/"; 
yr;"[SPACE]=[SPACE][COM-7]";dw$(wo 
).print"[CTRL-2]":goto2870 
2560 print"[2xCRSR-DOWN]De[SPACE]ingevo 
erde[SPACE]datum[SPACE]is[SPACE]on 
juist[SPACE]!!":goto2870 
2570 ifmo=4andda>30then2560 
2580 ifmo=6andda>30then2560 
2590 ifmo=9andda>30then2560 
2600 ifmo=llandda>30then2560 
2610 ifint(yr/4)=yr/4thenle=l 
2620 ifmo>2thenle=0 
2 630 ifmo<>2thenreturn 
2640 ifda<29thenreturn 
2650 ifda>29then2560 
2660 wy=int(yr/4) :wy=yr-(wy*4) 

2670ifwy<>0then2560 
2680 return 

2690 print"[SHIFT-CLR]":poke53280,14 
2700 print"[COM-7] [4xSPACE]****[SPACE]c 
ommodore[SPACE]64[SPACE]basic[SPAC 
E]v2[SPACE]****[CRSR-DOWN]"chr$ (14 
2) 

2710 print"[SPACE]64k[SPACE]ram[SPACE]s 
ystem[2xSPACE]3 8 911 [SPACE]basic[SP 
ACE]bytes[SPACE]free":poke788, 49:p 
oke657,0:new 

2720 print" [2xCRSR-DOWN] [CTRL-9] Druk [SP 
ACE]de[SPACE]functietoets[SPACE]va 
n[SPACE]uw[SPACE]keuze[SPACE]!":re 
turn 

2730 print"[2xCRSR-DOWN] [CTRL-9]Druk[SP 


ACE]de[SPACE]cijfer-toets[SPACE]va 
n[SPACE]uw[SPACE]keuze[SPACE]!";re 
turn 

2740 input"Geef[SPACE]waarde[SPACE]van[ 
SPACE]'b'[SPACE]";b:print:return 
2750 input"Geef[SPACE]waarde[SPACE]van[ 
SPACE]'S'[SPACE]";s:print;return 
2760 input"Geef[SPACE]waarde[SPACE]van[ 
SPACE]'h'[SPACE]";h:print:return 
2770 input"Geef[SPACE]waarde[SPACE]van[ 
SPACE]'r'[SPACE]";r:print:return 
2780 input"Geef[SPACE]waarde[SPACE]van[ 
SPACE]'V'[SPACE]";v:print:return 
2790 print"Geef[SPACE]waarde[SPACE]van[ 
SPACE]beginkapitaal:[SPACE]":input 
k:print:return 

2800 print"Geef[SPACE]waarde[SPACE]van[ 
SPACE]de[SPACE]intrest[SPACE](in[S 
PACE]%):[SPACE]inputi:print:retu 
rn 

2810 print"Geef[SPACE]waarde[SPACE]van[ 
SPACE]het[SPACE]aantal[SPACE]uitge 
zette[3xSPACE]jaren:[SPACE]input 
n:print;return 

2820 print"Geef[SPACE]waarde[SPACE]van[ 
SPACE]eindkapitaal:[SPACE]":inputg 
:print:return 

2830 print"[CRSR-DOWN]De[SPACE]oppervla. 
kte[SPACE]=[COM-7]"s"m[CRSR-UP]2[C 
RSR-DOWN][CTRL-2]":goto2870 
2840 print"[CRSR-DOWN]Het[SPACE]volume[ 
SPACE]=[COM-7]"v"m[CRSR-UP]3[CRSR- 
DOWN] [CTRL-2]":goto2870 
2850 print"[CRSR-DOWN]De[SPACE]straal[S 
PACE]=[COM-7]"r"m[CTRL-2]":goto287 
0 

2860 print"[CRSR-DOWN]De[SPACE]hoek[SPA 
CE]=[COM-7]"h"graden[CTRL-2][SPACE 
] ! " 

2870 print"[2xCRSR-DOWN] [CTRL-9]Druk[SP 
ACE]op[SPACE]'RETURN'[SPACE]om[SPA 
CE]terug[SPACE]te[SPACE]keren":pri 
nt"[CTRL-9]naar[SPACE]het[SPACE]me 
nu[SPACE]!!" 

2880 getj$:ifj$=""then2880 
2890ifj$=chr$(13)thenl40 
2900 goto2870 

2910 foru=lto999:next:return 
2920 end 

** EINDE LISTING rekenwonder ** 
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Checksum Reken 






■ i*j ai. 

REGEL 

i 

89 

RE] GEL 

470 

116 

REGEL 

1020 

64 

REGEL 

1570 

92 

REGEL 

2320 

178 

REGEL 

2 

123 

REGEL 

480 

124 

REGEL 

1030 

37 

REGEL 

1580 

172 

REGEL 

2330 

59 

REGEL 

3 

89 

REGEL 

490 

124 

REGEL 

1040 

110 

REGEL 

1590 

21 

REGEL 

2340 

10 

REGEL 

4 

62 

REGEL 

500 

66 

REGEL 

1050 

165 

REGEL 

1600 

144 

REGEL 

2350 

28 

REGEL 

5 

81 

REGEL 

510 

89 

REGEL 

1060 

203 

REGEL 

1610 

63 

REGEL 

2360 

25 

REGEL 

6 

45 

REGEL 

520 

58 

REGEL 

1070 

199 

REGEL 

1620 

182 

REGEL 

2370 

144 

REGEL 

7 

168 

REGEL 

530 

209 

REGEL 

1080 

75 

REGEL 

1630 

192 

REGEL 

2380 

81 

REGEL 

8 

55 

REGEL 

540 

102 

REGEL 

1090 

194 

REGEL 

1640 

174 

REGEL 

2390 

145 

REGEL 

9 

81 

REGEL 

550 

24 

REGEL 

1100 

29 

REGEL 

1650 

42 

REGEL 

2400 

50 

REGEL 

10 

121 

REGEL 

560 

106 

REGEL 

1110 

246 

REGEL 

1660 

172 

REGEL 

2410 

69 

REGEL 

20 

43 

regel 

570 

151 

REGEL 

1120 

135 

REGEL 

1670 

201 

REGEL 

2420 

132 

REGEL 

30 

67 

REGEL 

580 

84 

REGEL 

1130 

177 

REGEL 

1680 

205 

REGEL 

2430 

12 

REGEL 

40 

176 

REGEL 

590 

128 

REGEL 

1140 

181 

REGEL 

1690 

82 

REGEL 

2440 

215 

REGEL 

50 

180 

REGEL 

600 

117 

REGEL 

1150 

145 

REGEL 

1700 

140 

REGEL 

2450 

7 

REGEL 

60 

237 

REGEL 

610 

212 

REGEL 

1160 

96 

REGEL 

1710 

159 

REGEL 

2460 

174 

REGEL 

70 

217 

REGEL 

620 

32 

REGEL 

1170 

96 

REGEL 

1720 

37 

REGEL 

2470 

167 

REGEL 

80 

237 

REGEL 

630 

171 

REGEL 

1180 

88 

REGEL 

1730 

114 

REGEL 

2480 

223 

REGEL 

90 

166 

REGEL 

640 

121 

REGEL 

1190 

73 

REGEL 

1740 

135 

REGEL 

2490 

178 

REGEL 

100 

167 

REGEL 

650 

115 

REGEL 

1200 

47 

REGEL 

1750 

88 

REGEL 

2500 

11 

REGEL 

110 

82 

REGEL 

660 

115 

REGEL 

1210 

14 

REGEL 

1760 

205 

REGEL 

2510 

91 

REGEL 

120 

73 

REGEL 

670 

34 

REGEL 

1220 

17 

REGEL 

1770 

182 

REGEL 

2520 

67 

REGEL 

130 

83 

REGEL 

680 

51 

REGEL 

1230 

177 

REGEL 

1780 

141 

REGEL 

2530 

128 

REGEL 

140 

91 

REGEL 

690 

240 

REGEL 

1240 

166 

REGEL 

1790 

113 

REGEL 

2540 

154 

REGEL 

150 

202 

REGEL 

700 

171 

REGEL 

1250 

204 

REGEL 

1800 

140 

REGEL 

2550 

148 

REGEL 

160 

133 

REGEL 

710 

119 

REGEL 

1260 

198 

REGEL 

1810 

30 

REGEL 

2560 

9 

REGEL 

170 

42 

REGEL 

720 

113 

REGEL 

1270 

76 

REGEL 

1820 

106 

REGEL 

2570 

201 

REGEL 

180 

127 

REGEL 

730 

113 

REGEL 

1280 

6 

REGEL 

1830 

232 

REGEL 

2580 

203 

REGEL 

190 

210 

REGEL 

740 

32 

REGEL 

1290 

165 

REGEL 

1840 

100 

REGEL 

2590 

206 

REGEL 

200 

182 

REGEL 

750 

19 

REGEL 

1300 

208 

REGEL 

1850 

173 

REGEL 

2600 

247 

REGEL 

210 

222 

REGEL 

760 

33 

REGEL 

1310 

165 

REGEL 

1860 

227 

REGEL 

2610 

118 

REGEL 

220 

170 

REGEL 

770 

88 

REGEL 

1320 

48 

REGEL 

1870 

84 

REGEL 

2620 

36 

REGEL 

230 

116 

REGEL 

780 

138 

REGEL 

1330 

167 

REGEL 

1880 

68 

REGEL 

2630 

242 

REGEL 

240 

39 

REGEL 

790 

1 

REGEL 

1340 

54 

REGEL 

1890 

167 

REGEL 

2640 

99 

REGEL 

250 

209 

REGEL 

800 

193 

REGEL 

1350 

144 

REGEL 

1900 

253 

REGEL 

2650 

160 

REGEL 

260 

30 

REGEL 

810 

127 

REGEL 

1360 

93 

REGEL 

1910 

178 

REGEL 

2660 

199 

REGEL 

270 

125 

REGEL 

820 

186 

REGEL 

1370 

170 

REGEL 

1920 

185 

REGEL 

2670 

67 

REGEL 

280 

25 

REGEL 

830 

163 

REGEL 

1380 

194 

REGEL 

1930 

100 

REGEL 

2680 

142 

REGEL 

290 

150 

REGEL 

840 

123 

REGEL 

1390 

79 

REGEL 

1940 

120 

REGEL 

2690 

212 

REGEL 

300 

33 

REGEL 

850 

121 

REGEL 

1400 

22 

REGEL 

1950 

24 

REGEL 

2700 

128 

REGEL 

310 

120 

REGEL 

860 

110 

REGEL 

1410 

68 

REGEL 

1960 

244 

REGEL 

2710 

36 

REGEL 

320 

195 

REGEL 

870 

110 

REGEL 

1420 

98 

REGEL 

1970 

3 

REGEL 

2720 

235 

REGEL 

330 

187 

REGEL 

880 

36 

REGEL 

1430 

141 

REGEL 

1980 

254 

REGEL 

2730 

189 

REGEL 

340 

13 

REGEL 

890 

247 

REGEL 

1440 

129 

REGEL 

1990 

0 

REGEL 

2740 

161 

REGEL 

350 

239 

REGEL 

900 

222 

REGEL 

1450 

14 

REGEL 

2000 

90 

REGEL 

2750 

67 

REGEL 

360 

181 

REGEL 

910 

16 

REGEL 

1460 

86 

REGEL 

2010 

0 

REGEL 

2760 

173 

REGEL 

370 

113 

REGEL 

920 

234 

REGEL 

1470 

227 

REGEL 

2020 

168 

REGEL 

2770 

193 

REGEL 

380 

234 

REGEL 

930 

192 

REGEL 

1480 

254 

REGEL 

2030 

26 

REGEL 

2780 

73 

REGEL 

390 

70 

REGEL 

940 

174 

REGEL 

1490 

188 

REGEL 

2040 

6 

REGEL 

2790 

152 

REGEL 

400 

237 

REGEL 

950 

125 

REGEL 

1500 

208 

REGEL 

2050 

12 

REGEL 

2800 

169 

REGEL 

410 

30 

REGEL 

960 

122 

REGEL 

1510 

166 

REGEL 

2060 

167 

REGEL 

2810 

251 

REGEL 

420 

97 

REGEL 

970 

149 

REGEL 

1520 

204 

REGEL 

2070 

199 

REGEL 

2820 

79 

REGEL 

430 

77 

REGEL 

980 

38 

REGEL 

1530 

209 

REGEL 

2080 

204 

REGEL 

2830 

108 

REGEL 

440 

36 

REGEL 

990 

70 

REGEL 

1540 

86 

REGEL 

2090 

199 

REGEL 

2840 

83 

REGEL 

450 

146 

REGEL 

1000 

174 

REGEL 

1550 

111 

REGEL 

2100 

77 

REGEL 

2850 

17 

REGEL 

460 

113 

REGEL 

1010 

55 

REGEL 

1560 

212 

REGEL 

2110 

75 

REGEL 

2860 

88 










REGEL 

2120 

136 

REGEL 

2870 

104 










REGEL 

2130 

120 

REGEL 

2880 

177 










REGEL 

2140 

81 

REGEL 

2890 

99 










REGEL 

2150 

64 

REGEL 

2900 

90 










REGEL 

2160 

65 

REGEL 

2910 

140 










REGEL 

2170 

142 

REGEL 

2920 

128 










REGEL 

2180 

80 













REGEL 

2190 

19 













REGEL 

2200 

29 













REGEL 

2210 

39 













REGEL 

2220 

39 













REGEL 

2230 

52 













REGEL 

2240 

22 













REGEL 

2250 

78 













REGEL 

2260 

244 













REGEL 

2270 

169 













REGEL 

2280 

140 













REGEL 

2290 

94 













REGEL 

2300 

129 













REGEL 

2310 

46 
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Amiga 


Filerequester in AmigaBasic 


EB 


■BH 


ÜJSMSiifttiiitfSÖW 1 » i i mi Sfkfi ft ju h 1 .Hui 




«ÏHAÜKRl CTT 

, info 

HQIXR I W) .RUW 
(SIR) c 

Lses Wij Eerst,info 

(DIS) ï 

WöIKReo' Inu Mat) 
(DIRJ.DEVS 

Ai’ry .■{‘‘■j.RAcvI.C 

(Bil,) s 


IÏ3F § 1 lïiF 1:1 jl) ii 6 '1 |MW : ] [ Vii jf'j j« f L ■j/l 

Dir |OTT...j 

me «aïirrrzi 

[ In ori ïe.[ | MwSe ti | 


ASBG-RAM 

m 

Si Sloot 


D e volgende Amiga-program- 
ma’s zijn van de hand van Ro¬ 
nald Sloot. Voor de regelmatige 
lezers van ons blad is dit zeker 
geen onbekende. Hij stuurde ons 
weer een aantal routines die de 
AmigaBasic gebruikers het leven 
een stuk makkelijker maken (voor 
zover dit mogelijk is). De routines 
zijn goed becommentarieerd, zo¬ 
dat gebruikers de routines naar ei¬ 
gen smaak kunnen aanpassen. 
Dit komt natuurlijk de duidelijkheid 
ten goede. We nemen hier ook de 
volledige uitleg op die hij bij zijn 
programma’s heeft geschreven. 

Informatie over de routines FileRequest, 
Invoer v2.0, Match en Request. 

Goede FileRequesters, invoerroutines die 
werken met scrollbare tekst en pattem 
matching, ik heb ze nog nooit (of bijna 
nooit) in AmigaBASIC gezien... Daar 
hoop ik met deze routines verandering in 
te brengen. 

De behandeling van Match 

Met match kunnen voorwaarden aan een 
tekst gesteld worden. Voorbeelden zou¬ 
den kunnen zijn: de naam moet eindigen 
op Janssen, de tekst moet beginnen met 
JOY en daarachter mag een cijfer tussen 
de 1 en de 9 staan, de tekst moet de tekst 
DMA bevatten en eindigen op .h. De 
voorwaarden aan de tekst worden met be¬ 
paalde tekens gezet. Deze routine ge¬ 
bruikt een asteriks (*) een vraagteken (?) 
en een begin-en eindhaak ([]). Deze te¬ 
kens hebben elk een bepaalde betekenis. 
Zo is de betekenis van "*" een string 


(tekst) met een willekeurige lengte en kan 
* dus inhouden aa azeezb zd 3342ere34 
of helemaal geen teken. De betekenis van 
het"?" is een willekeurig teken welke bv. 
kan betekenen een a,d,z,l,3,4 of welk te¬ 
ken dan ook, maar houdt wel in de gaten 
dat het 1 teken is! (geen 0 of meer dan 1). 
Verder is de betekenis van de haken "[]" 
een bereik waar een bepaald teken aan 
moet voldoen. Bereiken zijn bijvoorbeeld 
[ 1 -4] (het teken moet voldoen aan 1,2,3 of 
4), [aert] (het teken moet voldoen aan 
a,e,r of een t), [aceg-k] (het teken moet 
voldoen aan een a,c,e of liggen binnen g- 
k (ghijk)) en als laatste [la-z] (het teken 
moet voldoen aan een 1 of een letter zijn). 
Let wel, deze routine maakt geen verschil 
tussen hoofd- of kleine letters. (NIET 
CASE-SENSITIVE). Dit is wel heel 
makkelijk te verwezenlijken, maar dat 


wordt als commentaar bij de match-routi- 
ne uitgelegd. 

Hoe gebruikt men Match 
nu in AmigaBasic? 

Nadat u de Match-routine via bijvoor¬ 
beeld COPY en PASTE in uw eigen pro- 
grammalisting heeft geplaatst kunt u er 
gebruik van maken. U kunt dan de routine 
aanroepen met Match pattern$,verge- 
lijk$. Pattern$ bevat dan de string met de 
voorwaarden (met de tekens *,? en [] dus) 
en vergelijk$ bevat dan de string die ver¬ 
geleken dient te worden. 

Bijvoorbeeld : 

Match "[a-c]*.info",tekst$ 
of Match a$,tekst$ 


Inuoer 10, 100, £0 


200, 1, 2, 0, 1, "Al ingeuoerd: 

I III I I 

I III I I 

tekst die al in box geplaatst wordt 


! \ ! Type \ 

nax aantal I ! breedte \! Inuoer \ 

tekens ! ! u.d.box \ Actie op return 

uoorgrond, 

xpos ypos achtergrondkleur 

(in pixels) 
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Voorbeelden pattern strings: 

0 *,info ;tekst moet eindigen op .info; 

° *.info* ;er moet ".info" in de tekst zit¬ 
ten; 

0 *A*&* ;er moet een A en een & in de 
tekst zitten (de & moet dan wel na de 
A staan); 

° ? ;tekst moet 1 teken bevatten; 

0 ?? ;tekst moet 2 tekens bevatten; 

° a?? ;tekst moet beginnen met a en 
daarna moeten er 2 karakters staan 
(willekeurige karakters); 

0 [1-4] ;tekst bevat 1 teken dat moet be¬ 
staan uit een 1,2,3 of 4; 

0 *[ao-q] ;tekst moet eindigen op een 
a,o,p of q; 

0 [a-y]??*.PC ;tekst moet beginnen met 
teken dat ligt tussen a en y (incl. a en 
y) en daarna moeten 2 willekeurige ka¬ 
rakters staan en de tekst moet eindigen 
op .PC (de minimale lengte is dus 
1+1+ 1+3=6). 

De behandeling van Invoer 
v2.0 

Invoer v2.0 is bedoeld als vervanging van 
de input-routine van AmigaBasic zelf 
maar kan ook met enige moeite omgezet 
worden voor GFA-BASIC. De routine 
ondersteunt de cursortoetsen, DEL en 
Backspacetoets. Verder heeft hij nog wat 
extraatjes, welke zijn: volgend en vorig 
woord via de F9 (vorig) en F10 (volgend) 
toetsen maar ook springen naar begin en 
einde van de tekst (Cursor Omhoog/Cur¬ 
sor Omlaag), het wissen van de tekst door 
middel van de ESC-toets en de moge¬ 
lijkheid om alleen bepaalde toetsen toe te 
staan bij de invoer zoals alleen de jnJNy Y 
toetsen. De jnJNy Y is er 1 van de 5 : 0 = 
alle tekens 

1 = 012456789.-.*/ A ()+= 


2 = cijfers + letters 

3 = jnJNyY 

4 = 0123456789. 

Overigens : een eigen type is met enig in¬ 
zicht in de routine heel makkelijk bij te 
voegen. Dan is er nog de actie op return. 
U kunt de routine meedelen (via een pa¬ 
rameter van Invoer) of het toegestaan is 
geen tekst in te voeren (de tekst is leeg 
:""). Dit kan soms wel eens handig zijn als 
het echt nodig is dat er tekst ingevoerd 
moet zijn. Ook kunt u als parameter een 
tekst aan Invoer meegeven die hij dan al¬ 
vast als invoer moet beschouwen (er staat 
bijvoorbeeld al gelijk "DFO:" in). 

Nadat via bijvoorbeeld COPY & PASTE 
de routine in uw eigen programma gezet 
is, kan de routine gebruikt worden. Een 
voorbeeld daarvan staat in figuur 1. 

De behandeling van 
FileRequest 

FileRequest is een routine waarmee u 
vriendelijk een file kunt selecteren om 
deze te laden, saven, printen etcetera; u 
bedenkt het maar. Wanneer het FileRe¬ 
quest window wordt geopend, wordt er 
eerst gevraagd een device aan te klikken 
(of u kunt hem in de dirbox intikken). 
Van deze manier ben ik een voorstander 
(de andere manier is om gelijk de directo¬ 
ry te gaan laden, bijvoorbeeld DFO: of de 
directory van de vorige keer), omdat je in 
80% van de gevallen een andere directory 
wilt zien dan de standaard instelling van 
het programma. Ik moet hierbij opmerken 
dat deze filerequester zijn files van de vo¬ 
rige keer nog onthoudt, en dat hij dan niet 
vraagt om een device te kiezen, maar ook 
niet begint met laden, zodat het in princi¬ 
pe hetzelfde is (en nog vriendelijk ook). 
Wat wel belangrijk is om op te merken, is 
dat deze routine gebruik maakt van de 
routines Invoer v2.0 en Match (vl.0) die 


hierboven beschreven zijn. Dus als deze 
FileRequest-routine gebruikt wordt, moe¬ 
ten Invoer v2.0 en Match ook een deel 
uitmaken van het programma. De filere¬ 
quester is ook van het type "KLIK 
MAAR RAAK" i.p.v. "ER ZIIN NOG 20 
WACHTENDEN VOOR U". Het "klik 
maar raak"-principe (zo heb ik het maar 
genoemd) houdt in dat tijdens het laden 
van de directory u een andere directory 
kunt kiezen, naar de vorige directory kunt 
gaan, een file kunt kiezen en kunt veran¬ 
deren van device (en op In Orde en Afbre¬ 
ken kunt drukken) oftewel op alles volgt 
direct een actie. Een mogelijkheid van 
deze filerequester die u bijna nooit vindt 
bij andere filerequesters (en al is dat wel 
zo, dan is het meestal in de meest simpele 
vorm die er is, waarmee ik het achter¬ 
voegsel controle bedoel), is dat aan de en- 
tries van de directory voorwaarden ge¬ 
steld kunnen worden zoals bijvoorbeeld: 
Kick*vl.[l-4], Voor de uitleg van het 
pattern matchen verwijs ik terug naar de 
uitleg van de Match-routine in deze file. 

De behandeling van Request 

Request is een routine waarmee u zelf 
AutoRequesters kunt maken. U kent ze 
wel van "Insert Naam_Disk in any drive". 
Ik dacht even weer op een Commodore 
64 te zitten met al dat gepoke.. De AC- 
Basic-compiler kwam trouwens bij deze 
routine in de problemen (vl.3) wanneer 
er een adres van een string werd opge¬ 
vraagd die als data ingelezen was. Daar 
ben ik wel even een tijdje mee aan het 
klungelen geweest. Request verwacht dat 
de datapointer naar data staat die speci¬ 
fiek voor deze routine is. In het commen¬ 
taar in het programma wordt de verwach¬ 
te syntax uitgelegd, eveneens het wijzi¬ 
gen van de datapointer (RESTORE-func- 
tie). Verdere informatie staat in het pro¬ 
gramma... 


Loader 


uit de listing zodat het 
kan lopen.... 


(een beetje) 


sneller 


' Loader van prograiranafile 
' met de modules: 

' - FileRequest 
' - Invoer v2.0 
' - Match vl.0 
CLEAR ,32000 

LOAD "MOD(FileReq).MAIN",r 


libpath$="VD0 :" 

LIBRARY libpath$+"graphics.library" 
LIBRARY libpath$+"dos.library" 
LIBRARY libpath$+"exec.library" 

GOSUB InitFileReq 
GOSUB Demo 

END 


Filereq 


CLEAR ,40000& 

DECLARE FUNCTION ExNextS LIBRARY 
DECLARE FUNCTION ExamineS LIBRARY 
DECLARE FUNCTION AllocMemfi LIBRARY 
DECLARE FUNCTION MoveS LIBRARY 
DECLARE FUNCTION Lock£ LIBRARY 

' CInfo / Datum 22 Oktober 1989 

' Modules FileRequest / Invoer v2.0 / Match vl.0 


' Voor eventuele problemen: R.Sloot / 01659-3686 

' Haal A.U.B. voor uw eigen versie het kommentaar 


InitFileReq: 

'====Initialiseer/dimensioneer arrays benodigd voor subroutine 
FileRequest 

MAXFILES% = 90 
GADGETS% = 13 

DEVGADGH% = 7 

RESTORE FReqData 

DIM file$(MAXFILES%), Device$(DEVGADGH%)/ Kleur%(MAXFILES%), 
gX%(GADGETS%), gY%(GADGETS%), gXl%(GADGETS%), gYl%(GADGETS%) 

DIM SHARED CursorBeeld%(30) 

'lees arrays in 

FOR i%=0 TO DEVGADGH%-1:READ Device$(i%) :NEXT 

FOR i%=0 TO GADGETS%-1:READ gX%(i%), gY%(i%), gXl%(i%), gYl%(i%):NEXT 
RETURN 
Demo: 

CALL SetDrMd(WINDOW(8),0) 
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COLOR 3 

Prin 5,10, "FileRequester" 

P rin 5,17, " === ======== 11 

COLOR 1 

Prin 5,26, "Syntax: FileRequest 
x_window,y_window,boodschaptekst,schermnuiraner" 

Prin 20,40,"*voor de aanroep van deze routine moet deze 
eerst geinitialiseerd" 

Prin 20,48," worden met GOSUB InitFileReq." 

Prin 20,58,"*de routine gebruikt de InvoerV2.0 en MatchVl.0 
routines" 

COLOR 3 

Prin 5,70, "Invoer v2.0" 

Prin 5,77, "===========" 

COLOR 1 

Prin 5,86, "Syntax: Invoer 

aantal_tekens,x_pos,y_pos,breedte_v.d_box,voorgrondkleur," 
Prin 5,94," 

achtergrondkleur,invoertype,aktie op returntoets,tekst" 

Prin 5,106," * Invoer v2.0 is een BOXinvoerroutine 
(scrollbaar)." 

Prin 5,114," Extra's: vorig en volgend woord, begin en 
eind tekst en wis heel de tekst" 

COLOR 3 

Prin 5,136,"Match vl.0" 

Prin 5,144,"==========" 

COLOR 1 

Prin 5,153,"Syntax: Match patternstring,vergelijkingsstring" 
Prin 5,165," * Bereik :[], string met variabele lengte :*, 
variabel teken :?" 

CALL SetDrMdfi(WINDOW(8),1) 

COLOR 3:Prin 170,184,"< Druk op de linker muistoets >" 

WHILE MOUSE(0)=0:WEND 

'-1 is het workbenchscreen 
FileRequest 250,50,"Laad file",-l 

'===2e maal aanroepen om te laten zien dat entrys onthouden 
blijven 

FileRequest 250,50,"Opslaan file",-l 
COLOR 1:CLS 

GOSUB DemoPatternMatching 
RETURN 

DemoPatternMatching: 

Prin 440,10,"Demo Pattern Matching" 

RESTORE PMdemoData 
DIM vergelijk$(12) 

FOR i%=0 TO ll-.READ vergelijk$(i%):NEXT 
FOR i%=0 TO 8:READ testpat$(i%):NEXT 

COLOR 2 :CALL RectFilU (WIND0W(8), 20, 20,190,150) 

LINE (20,20)-STEP(170,130),l,b 

COLOR 3:CALL RectFillfi(WINDOW(8),230,20,395,120) 

LINE (230,20)-STEP(165,100),l,b 
COLOR 1 

Prin 20,16,"Vergelijkingstekst" 

Prin 230,16,"Testpatterns" 

COLOR 1,2:FOR i%=0 TO 11:Prin 
25,30+i%*10,vergelijk$(i%):NEXT 
COLOR 1,3:FOR i%=0 TO 8:Prin 235,30+i%*10,testpat$(i%):NEXT 

testpat%=0 

CALL SetDrMdS(WINDOW(8) , 2) 

CALL RectFill&(WINDOW(8),231,21, 394,31) 

WHILE testpat%<=8 
COLOR 1,0 

CALL SetDrMdS(WINDOW(8),1) 

Prin 399,50,"Druk op de linker muistoets" 

Prin 399,58,"voor (volgende) pattern" 

'leeg muisbuffer 
WHILE MOUSE (0)00: WEND 
WHILE MOUSE(0)=0:WEND 
LINE (399,42)-(630,70),0,bf 

COLOR 2:CALL RectFillfi(WINDOW(8),21,21,189,149) 

COLOR 1,2:FOR i%=0 TO 11:Prin 
25,30+i%*10,vergelijk$(i%):NEXT 
CALL SetDrMd(WINDOW(8),2) 

IF testpat%>0 THEN 
CALL 

RectFillS(WINDOW(8),231,21+(testpat%-l)*10,394,31+(testpat%-l) 
*10) 

CALL 

RectFillfi(WINDOW(8),231,21+testpat%*10,394,31+testpat%*10) 

END IF 

FOR i%=0 TO 11 

Match testpat$(testpat%),vergelijk$(i%) 

IF Matchfound% THEN 

CALL RectFillS(WINDOW(8),23,22+i%*10,187,32+i%*10) 

END IF 
NEXT 

testpat%=testpat%+l 

WEND 

Prin 420,70,"Einde demo.." 

CALL Delay&(200) 

CALL SetDrMdfi(WINDOW(8) , 1) 

COLOR 1,0:CLS 

RETURN 


' BehandelMuis : Wanneer de sub FileRequester aktief is, zal 
hier naar toe 

' gesprongen worden wanneer er op de linkse muisbutton 
gedrukt wordt. 

' De routine zorgt voor de afhandeling van de verschillende 
gadgets / klik- 

' gebieden. Eveneens zorgt deze routine er voor dat er 
vlaggen gezet wordt 

' worden (wanneer dat nodig is) voor de onderbreking van "de 
directory haal 

' routine". Laatste verandering : 12 Oktober 1989 


BehandelMuis: 

'x-y coördinaten halen 
minfo%=MOUSE(0) 
mx%=MOUSE(3):my%=MOUSE(4) 

'Is er geklikt in het FileRequester window ? 

IF WINDOW(0)=2 THEN 

'Is er geklikt in de FileBox ? 

IF (mx%>=4 AND mx%<=246) AND (my%>=4 AND my%<=83) THEN 
GOSUB FileBoxKlik 
ELSE 

'Er is WAARSCHIJNLIJK geklikt op een 
FileRequestergadget > Ga zoeken 

'welke dit is en zet dit in Klik% (0 indien niet op 
een gadget geklikt) 

aktie%=0:gStart%=0 :gEind%=GADGETS%-l 
GOSUB BehandelGadgets 

IF Klik%<>0 AND Getting% THEN StopRequest%=-l 
END IF 
END IF 

RETURN 


'FileBoxKlik kijkt of de klik in het FileBOX legaal is en zo 
ja wordt de 

'aangeklikte rij even opgelicht. Wanneer op een directory 
geklikt wordt zal 

'de LeesDir stopvlag gezet anders rijinhoud naar filenaam 
kopiEren. 

FileBoxKlik: 

'Bereken rij in de FileBox 
FileSelect%=INT((my%-4)/8) 

'Zijn er files in de FileBox EN staat er op de geklikte 
plaats wel "iets" : 

'(Stel dat er maar 1 file op de disk staat > rest filebox 
blijft dan leeg) 

IF top%+FileSelect%<Entry% AND Entry%<>0 THEN 
aktie%=0 

'Licht file even op 
CALL SetDrMd(WINDOW(8),2) 

CALL 

RectFill(WINDOW(8),7,FileSelect%*8+4,242, FileSelect%*8+ll) 
FOR i%=0 TO 800:NEXT 
CALL 

RectFill(WINDOW(8),7,FileSelect%*8+4,242,FileSelect%*8+ll) 

'Waneer dit een directory is (Kleur%(x%)=3) voor de 
"directory haal routine" 

'een vlag zetten dat deze moet stoppen. Waneer het een 
file is, deze gelijk 

'kopiëren naar de box waar de aktieve Filenaam in staat. 

CALL SetDrMd(WINDOW(8),1) 

IF Kleur%(top%+FileSelect%)=3 THEN 
DirKlik%=-l:StopRequest%=-l 
in$=MID$(file$(top%+FileSelect%),7) 

ELSE 

LINE (39,118)-(264,125) ,0,bf 
e&=Move&(WINDOW(8),42,124) 

COLOR 1,0 

filename$=LEFT$(file$(top%+FileSelect%) , 27) 

CALL TextS(WINDOW(8),SADD(filename$),LEN(filename$)) 
COLOR 1,2 
END IF 
END IF 

RETURN 

'BehandelGadgets zoekt aan de hand van de klikcoordinaten 
MX% en MY% op 

'welk gadget geklikt is. Hij zoekt in het bereik gstart% t/m 
geind% welke 

'het begin en eindnummer van het gadget aangeven. 


BehandelGadgets: 

Klik%=0 

FOR i%=gStart% TO gEind% 

IF mx%=>gX%(i%) AND mx%<=gXl%(i%) THEN 
IF my%=>gY%(i%) AND my%<=gYl%(i%) THEN 
Klik%=i%+1:i%=gEind%+l 
END IF 
NEXT 

RETURN 

'FileREQUESTER DATA 


FReqData: 
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DATA "DFO:","DF1:","DHO:","RAM:","VDO:","*[]?","/" 

DATA 5,90,41,100,45,90,81,100,85,90,121,100,125,90,161,100 
DATA 

165,90,201,100,205,90,241,100,245,90,257,100,38,105,265,114 
DATA 

38,117,265,126,245,2,2 68,42,245,44,268, 84,50,130,126,138,140,1 

30,224,138 

'PatternMatching DEMO data 


PMdemoData: 

'vergelijkingsdata 

DATA "CInfo 1","CInfo 2", "Cinfo 3","Amiga 2000A","Amiqa 
2000B" 

DATA "Daaag","Daag","Dag","Da","D","Model 1081","Model 1084S" 
'patterndata 

DATA "*[1-4]","*Info*","Cinfo??","Amiga 
2000[ab]","???","*a[a-z]*", "*a?" 

DATA "*i*[fl-9]*[2rxfoa-d]","CIn*[23]*" 

SUB Prin(x%,y%,tekst$) STATIC 
e&=Move&(WINDOW(8),x%,y%):CALL 
Text&(WINDOW(8),SADD(tekst$),LEN(tekst$)) 

END SUB 

'FileRequest vl.0 


'Gekozen filenaam komt in :file$ te staan 

SUB FileRequest(Wx%,Wy%,tekst$,scr%) STATIC 
SHARED 

Kleur%(),Device$(),file$(),Klik%,aktie%,CANCEL%,top%,filename$ 
,dir$,Entry%,FileSelect%,in$,StopRequest%,DirKlik%,file$,Match 
found%,verg$,MAXFILES%,Getting% 

ON MOUSE GOSUB BehandelMuis 

lck&=0 

FileInfoBlock&=AllocMem&(260&,0) 

IF FileInfoBlock&=0 THEN ERROR 7 'GEHEUGEN PROBLEEM 

MOUSE OFF 
GOSUB WindowOpbouw 
aktie%=-l:EndRout%=-l: Klik%=0 
Chosen%=-l:StopRequest%=0 

MOUSE ON 

'De hoofdroutine "bestuurt de gadgets" en neemt aan de 
hand van bepaalde 

'vlaggen handelingen. Wanneer er bv. vanuit subroutines de 
vlag Aktie% 

'wordt gezet dan moet er een bepaalde handeling worden 
verricht. Is EndRout% 

'gezet dan wordt uit de hoofdroutine gesprongen 

'HoofdRoutine 

WHILE EndRout% 

WHILE aktie% 

SLEEP 

WEND 

GadStopREQ: 
aktie%=-l 

'Op DFO:/DPI: etc. geklikt ? 

IF Klik% >=1 AND Klik% <=5 THEN 
dir$=Device$(Klik%-1) 

COLOR 1,0:LINE (39,106)-(264,113),0,bf 
Prin 42,112,dir$ 

GOSUB LeesDir 

ELSEIF Klik%=6 THEN 
'MATCH gadget 

WINDOW 3,,(Wx%+20,Wy%+40)-(Wx%+200,Wy%+50),0,scr% 

Prin 5,12,"Match:" 

Invoer 50,56,6,116,1,2,0,1,verg$ 

WINDOW CLOSE 3 
verg$=in$ 

ELSEIF Klik%=7 THEN 

'Vorige directory halen (stuk van dir$ afhalen) 

'van rechts naar links: wordt een : gevonden dan 
for-next afbreken 

'of wordt er een / gevonden en deze / is niet het 
laatste teken dan 

'ook for-next afbreken. Bij afbreken wordt dan de 
afbreekpositie 

'onthouden die dan het nieuwe einde van dir$ wordt. 

FOR i%=LEN(dir$) TO 1 STEP -1 
c%=ASC(MID$(dir$,i%,1)) 

IF c%=58 OR (c%=47 AND i%OLEN (dir$) ) THEN 
endstr%=i%:i%=0 
NEXT 

IF endstr%<>0 THEN dir$=LEFT$(dir$,endstr%) ELSE 
dir$=":" 

COLOR 1,0:LINE (39,106)-(264,113), 0,bf 
Prin 42,112,LEFT$(dir$,27) 

GOSUB LeesDir 

ELSEIF Klik%=ll OR Klik%=10 THEN 

'\/ gadget : laatste 10 in filebox (of minder dan 11 
files) dan niks 


'doen, anders vorige 10 laten zien. 

herprint%=-l 

IF Klik%=ll THEN 

IF top%>=Entry%-10 THEN 
herprint%=0 
ELSE 

'aantal entrys nog te gaan ? 
lns%=Entry%-top%-10 
IF lns%>10 THEN lns%=10 
top%=top%+lns% 

END IF 

ELSEIF Klik%=10 THEN 
IF top%=0 THEN 
herprint%=0 
ELSE 

'aantal entrys nog te gaan ? 
lns%=top% 

IF lns%>10 THEN lns%=10 
top%=top%-lns% 

END IF 
END IF 

' Moet de inhoud van de filebox verandert worden "> 

IF herprint% THEN 
COLOR 2:CALL 

RectFillS(WINDOW(8),5&,3&,245&,83&) :COLOR 1,2 
FOR i%=top% TO top%+9 
COLOR Kleur%(i%) 

Prin 7,(i%-top%)*8+10,file$(i%) 

NEXT 
END IF 

ELSEIF Klik%=13 OR Klik%=12 THEN 

'Op OK of CANCEL gadget gedrukt .. en "uit 
hoofdroutine" vlag zetten 

IF Klik%=13 THEN CANCEL%=-1 ELSE CANCEL%=0 
EndRout%=0 

ELSEIF Klik%=8 THEN 

'Nieuwe directorynaam intikken 
Invoer 100,38,106,216,1,0,0,1,dir$ 
dir$=in$ 

MOUSE ON 
GOSUB LeesDir 

ELSEIF Klik%=9 THEN 

'Nieuwe filenaam intikken 
MOUSE OFF 

Invoer 30,38,118,216,1,0,0,1,filename$ 
filename$=in$ 

MOUSE ON 

END IF 

'De StopRequest / DirKlik vlag afhandelen 

'Wanneer de StopRequest% vlag true is betekent dat: een klik 
op een gadget of 

'een klik op een directory in de filebox TERWIJL de 
directory ingelezen werd. 


VlagContr: 

IF StopRequest% THEN 
'MOUSE OFF 
IF DirKlik% THEN 

DirKlik%=0 :StopRequest%=0 

'directorynaam toevoegen aan bestaande directorynaam 
in DirGadget 

IF RIGHT$(dir$,1)="/" OR RIGHT$(dir$,1)=";" THEN 
dir$=dir$+in$ 

ELSE 

dir$=dir$+"/"+in$ 

END IF 

'de nieuwe directorynaam in DirGadget zetten 
COLOR 1,0:LINE (39,106)-(264,113),0,bf 
Prin 42,112,LEFT$(dir$,27) 

MOUSE ON 
GOSUB LeesDir 

'nu kan er weer de StopRequest vlag gezet zijn dus 
'gelijk terugspringen naar VlagContr en controleren 
'om bepaalde redenen wordt hier een goto gebruikt 
GOTO VlagContr 

ELSE 

'er is tijdens het inlezen van de directory gedrukt 
op een gadget 

StopRequest%=0 
MOUSE ON 

'nee, geen overbodige goto 
GOTO GadStopREQ 
END IF 
END IF 

Klik%=0 

WEND ' { HoofdRoutine } 

CALL FreeMemfi(FilelnfoBlocks,260&) 

CALL UnLockS(lck&) 

WINDOW CLOSE 2 

filename (dir$+filename$) aan elkaar koppelen. Het is 
mogelijk heel de 

'pathstring (bv dfO:s/startup-sequence) in het filegadget 
te zetten (file- 

'name$) maar dan moet dirgadget wel leeg zijn (dir$=""). 
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IP NOT CANCEL% THEN 

IF RIGHT$(dir$,1)" OR RIGHT$(dir$,1)="/" THEN 
file$=dir$+filename$ 

ELSE 

IF dir$="" THEN file$=filename$ ELSE 
füe$=dir$+"/"+filename$ 

END IF 
END IF 

EXIT SUB 


WindowOpbouw: 

WINDOW 

2,"Verzoek:"+tekst$,(Wx%,Wy%)-(Wx%+280,Wy%+140),22,scr% 
COLOR 2 

CALL RectFillS(WINDOW(8),5S,3S,245S,83S) 

CALL RectFillS(WINDOW(8),2&,133&, 276S,138s) 

COLOR 3:CALL RectFillS(WINDOW(8),246,3,267,83) 

COLOR 1,2:LINE (4,2)-(246, 84) , , b 
LINE (245,2)-(268,84),,b 
LINE (245,43)-(268,43) 

AREA (252,41):AREA STEP(0,-23):AREA STEP(-5,0):AREA 
STEP(10,-15) 

AREA STEP (10,15) :AREA STEP(-5,0) :AREA STEP(0,23) 'AREA 
STEP(-10,0) 

AREAFILL 

AREA (252,45):AREA STEP(0,23):AREA STEP(-5,0)-AREA 
STEP(10,15) 

AREA STEP(10,-15):AREA STEP(-5,0):ARËA STEP(0,-23):AREA 
STEP(-10,0) 

AREAFILL 

top%=0 

IF Entry%=0 THEN 

Prin 25,30,"Kies het device waar u de" 

Prin 41,45,"inhoud van wilt zien." 

ELSE 

' files die nog in array zitten printen 
IF Entry%>9 THEN lns%=9 ELSE lns%=Entry%-l 
FOR i%=0 TO lns% 

COLOR Kleur%(i%) 

Prin 7,i%*8+10,file$(i%) 

NEXT i% 

END IF 

FOR i%=0 TO 6:GadghDraw (5+i%*40),90,Deviee$(i%):NEXT 
COLOR 1,0:Prin 2,112,"Dir":Prin 2,124,"File" 

LINE (38,105)-(265,114),,b 
LINE (38,117)-(265,126) , ,b 

GadghDraw 50,130," In orde ":GadghDraw 140,130," Afbreken 
COLOR 1,0 

Prin 42,112,LEFT$(dir$,27) 

Prin 42,124,LEFT$(filename$,27) 

RETURN 


LeesDir: 

MOUSE OFF 

COLOR 2:CALL RectFillS(WINDOW(8),5S,3s,245S,83S) 

COLOR 1,2 

'Controleer op eventuele ongeldigheden 
IF lck& >0 THEN CALL UnLockS(leks) 
lckS=Lock&(SADD(dir$+CHR$(0)),-2) 

IF lck&=0 THEN 
BEEP 

Prin 46,30," LOCK fout":Prin 46,40,"Directory/Device" 
Prin 46,50," bestaat niet" 

ELSE 

reS=ExamineS(lckS,FilelnfoBlockS) 

IF re&=0 THEN 
BEEP 

Prin 46,30,"Examine FoUt":Prin 46,43," Vreemd 
ELSE 

typeS=PEEKL(FilelnfoBloCkS+4) 

IF typeS <=0 THEN 
BEEP 

Prin 20,30,"DAAR trappen we niet in!" 

Prin 20,43,"De directory is een FILE!" 

END IF 
END IF 
END IF 

Entry%=0 : top%=0 : Linecnt%=0 :Getting%=-1 
IF lcks=0 OR res=0 OR typeS<=0 THEN Getting%=0 :MOUSE 
ON:RETURN 

COLOR 1:CALL RectFillS(WINDOW(8),263,90,274,100) 

MOUSE ON 

'nu kunnen we weer onderbroken worden: onderbroken worden 
tussen Entry%=0 en 

'bv top%=0 kan rare dingen tot gevolg hebben 
COLOR ,2 

'lees directory : naam uit FileinfoBlock halen, is dit een 
directory dan 

'in kleurarray andere kleur zetten en de tekst "(DIR)" 
ervoor zetten. 

,' na filenaam ingelezen te hebben, deze laten zien, zonodig 
scrolleri. 

WHILE ExNextS (leks, FilelnfoBlockS) <> 0 AND Entry% <= 
MAXFILES% AND NOT StopReqüèSt% 

EN$="":i%=l:Matchfound%=-l 
ascii%=PEEK(FileinfoBlocks+8) 


WHILE 

ascii%<>0:EN$=EN$+CHR$(ascii%):ascii%=PEEK(FilelnfoBlockS+8+i% 
):i%=i%+i: WEND 

IF verg$<>"" AND PEEKL(FilelnfoBlockS+4) <= 0 THEN 
Match verg$,EN$ 

END IF 

IF Matchfound% THEN 

IF PEEKL(FileInfoBlockS+4) > 0 THEN 
Kleur%(Entry%)=3:file$(Entry%)="(DIR) "+EN$ ELSE 
Kleur%(Ehtry%)=1:file$(Entry%)=EN$ 

MOUSE OFF 

COLOR Kleur%(Entry%) 

IF Linecnt%=10 THEN 

CALL ScrollRasterS(WINDOW(8),0,8,5,4,245,83) 

Prin 7,82,file$(Entry%):top%=top%+l 
ELSE 

Prin 7,Linecnt%*8+10,file$(Entry%) 

Linecnt%=Linecnt%+l 
ÉND IF 

Eritry%=Entry%+l 
MOUSE ON 
END IF 
WEND 

COLOR 0:CALL RectFillfi(WINDOW(8),263,90,274,100) 

Getting%=0 

RETURN 

END SUB 

SUB GadghDraw (x%,y%,T$) STATIC 
plus%=LEN(T$)*8:COLOR 3:CALL 
RectFillS(WINDOW(8),x%+l,y%+l,x%+plus%+3,y%+9) 

LINE (x%,y%)-(x%+plus%+4,y%+10),l,b:COLOR 
1,3:eS=MoveS(WINDOW(8),x%+3,y%+8) 

CALL TextS (WINDOW (8) ,SADD(T$),LEN(T$)) 

END SUB 

'Invoer V2.0 


'Ingevoerde tekst komt in : in$ te staan 

'Is er een getal ingevoerd dan komt het getal in in! te staan 
' *Invoertypë 0:alles toegestaan, 1: 0123456789-.*'■•/()+= 

' 2:cijfers en létters, 3: jnJNyY, 4: 

0123456789. 

*Ret(urn) 0:bij leeg veld druk op return niet toegestaan 
1:druk op return altijd toegestaan 
'Speciale toetsen: F9 = vorig woord, F10 = Volgend 

woord 

Cursor /\ = begin tekst, Cursor \/ = eind tekst 
ESC = Wis alle tekst 
'Scrollbare edit routine 

SUB 

Invoer(limiet%,xpos%,ypos%,breedte%,Voorgrond%,Achtergrond%,ty 
pe%,ret%,buf$) STATIC 
SHARED in$,in,csrbeeld% 

GOSUB VoorBereiding 

Toets: 
key$=" " 

WHILE key$="":key$=INKEY$:WEND 
key%=ASC(key$) 

IF key%=13 THEN 

'Controleer of drukken op return toegestaan is als veld 
leeg is, 

'is het veld niet leeg dan uit de sub 
IF strp%=0 AND ret%=0 THEN 
BEEP 
ELSE 

PUT (xpo%,ypo%),CursorBeeld%,XOR:in=VAL(in$) 

EXIT SUB 
END IF 

ELSEIF key%=8 THEN 

'Alleen deleten wanneer veld niet leeg is. Als dit zo is 
alleen resultaat 

'van delete aktie laten zien wanneer cursor niet geheel 
links staat ën 

'dan moet er op worden gelet of de cursor niét achter het 
laatste teken 

'staat (insert%=0) en of het laatste teken niet op de 
meeste rechtse 

'plaats stond in de box OMDAT er dan een spatie 
toegevoegd moet worden 
'aan de printstring. 

IF strp%>0 THEN 

buf$=LEFT$(in$, strp%-l) 
rest$=MlD$(in$,strp%+l) 
in$=buf$+rest$ 
strp%=strp%-l 
IF xpo%>MinX% THEN 
csr%=csr%-l 

prn$=LEFT$(rest $,MaxBOXchar%-csr%) 

PUT (xpo%,ypo%),CursorBeeld%,XOR 

IF ihsert%=0 OR strp%+MaxBOXchar%-csr%>LEN(in$) THEN 
prn$=prn$+" " 

xpo%=xpö%-8 

Prin xpo%,ypos%,prn$ 

PUT (xpo%,ypo%),CursorBeeld%,XOR 
END IF 
END IF 

ELSEIF key%=127 AND strp%Olimiet% THEN 
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'DEL toets: teken er tussen uit halen en oppassen bij 
printen: als 

'meest rechtse teken het laatste teken was dan spatie 
toevoegen 

' (aan printstring) 

PUT (xpo%,ypo%),CursorBeeld%,XOR 
in$=LEFT$(in$,strp%)+MID$(in$,strp%+2) 

'je hoeft niet te printen wanneer cursor helemaal rechts 
staat 

IF csr%OMaxBOXchar% THEN 

prn$=MID$(in$,strp%+l,MaxBOXchar%-csr%) 

IF csr%+LEN(prn$)<MaxBOXchar% THEN prn$=prn$+" " 

Prin xpo%,ypos%,prn$ 

END IF 

PUT (xpo%,ypo%),CursorBeeld%,XOR 

ELSEIF key%=31 THEN 
IF strp%>0 THEN 

'Cursor links: Als cursor op meest linkse positie stond 
dan scrollen 

strp%=strp%-l 

insert%=l 

IF xpo%=MinX% THEN 

PUT (xpo%,ypo%),CursorBeeld%,XOR 

Prin xpo%,ypos%,MID$(in$,strp%+l,MaxBOXchar%) 

PUT (xpo%,ypo%),CursorBeeld%,XOR 
ELSE 

srt%=-8:G0SUB CsrAanUit 
xpo%=xpo%-8:csr%=csr%-l 
END IF 
END IF 

ELSEIF key%=30 THEN 

'Cursor rechts : wanneer de cursor voor het laatste teken 
staat dan aktie 

'op cursor rechts welke is: als de cursor wordt 
verplaatst naar het laatste 

'teken dan "insert" mode uitzetten. STOND de cursor 
geheel rechts dan 

'moet er gescrolld worden, anders cursor enkel 
verplaatsten. 

IF strp%<LEN(in$) THEN 
stip%=strp%+l 

IF strp%=LEN(in$) THEN insert%=0 
IF xpo%=MaxX% THEN 

PUT (xpo%,ypo%),CursorBeeld%,XOR 
Prin 

MinX%,ypos%,MID$(in$,l+strp%-MaxBOXchar%,MaxBOXchar%) 

PUT (xpo%,ypo%),CursorBeeld%,XOR 
ELSE 

srt%=8:GOSUB CsrAanUit 
xpo%=xpo%+8:csr%=csr%+l 
END IF 
END IF 

ELSEIF key%=27 THEN 

'ESCAPE : wis de ingevoerde tekst 
PUT (xpo%,ypo%),CursorBeeld%,XOR 
csr%=0 : strp%=0 :in$="":LINE 
(MinX%,ypo%)-(MaxX%,ypo%+7),Achtergrond%,bf 
xpo%=MinX%:PUT (xpo%,ypo%),CursorBeeld%,XOR 

ELSEIF key%=28 THEN 
'Cursor begin 

PUT (xpo%,ypo%),CursorBeeld%,XOR 
csr%=0 : strp%=0 

IF LEN(in$)<MaxBOXchar% THEN 
spatie$=SPACE$(MaxBOXchar%-LEN(in$)) ELSE spatie$="" 

xpo%=MinX%:Prin MinX%,ypos%,LEFT$(in$,MaxBOXchar%)+spatie$ 
PUT (xpo%,ypo%),CursorBeeld%,XOR 

ELSEIF key%=29 THEN 
'Cursor einde 

PUT (xpo%,ypo%),CursorBeeld%,XOR 
csr%=LEN(in$):strp%=csr%:insert%=l 
IF csr%>MaxBOXchar% THEN csr%=MaxBOXchar% 
xpo%=MinX%+csr%*8 
IF LEN(in$)<MaxBOXchar% THEN 
spatie$=SPACE$(MaxBOXchar%-LEN(in$)) ELSE spatie$="" 

Prin MinX%,ypos%,RIGHT$(in$,MaxBOXchar%)+spatie$ 

PUT (xpo%,ypo%),CursorBeeld%,XOR 

ELSEIF key%=137 THEN 

'zoek vorig woord : eerst alle spaties links van cursor 
overslaan 

'daarna begin woord gaan zoeken (spatie zoeken) 
zps%—strp%: csrm%=0 :zoekdoor%=-l 
WHILE zps%=>l AND zoekdoor% 

IF MID$(in$,zps%,1)=" " THEN 
zps%=zps%-l:csrm%=csrm%-l 
ELSE 

zoekdoor%=0 
END IF 
WEND 

IF zps%=>l THEN 
zoekdoor%=-l 

WHILE zps% AND zoekdoor% 

IF MID$ (in$, zps%, 1)0" " THEN 
zps%=zps%-l:csrm%=csrm%-l 
ELSE 

zoekdoor%=0 
END IF 
WEND 
ss%=zps% 


GOSUB PrnWrd 
END IF 

ELSEIF key%=138 THEN 

'zoek volgend woord : zoek spatie en sla de spaties na 
die spatie 

'over om zo bij het begin van het woord te komen. 
zps%=strp%+l:csrm%=l 

WHILE MID$ ( in$ , zps%, 1) O" " AND zps%<=LEN (in$) 
zps%=zps%+l:csrm%=csrm%+l 
WEND 

IF zps%<=LEN(in$) THEN 

WHILE MID$ (in$ , zps%+l, 1) =" " AND zps%+K=LEN (in$) 
zps%=zps%+l:csrm%=csrm%+l 
WEND 
ss%=zps% 

GOSUB PrnWrd 
END IF 

ELSE 

'controleer of teken toegestaan is 
IF st%=1 THEN 

IF (key%<Lo% OR po%>hi%) AND (key%<ll% OR key%>12%) 

THEN Toets 
ELSE 

IF INSTR(st$, key$)=0 THEN Toets 
END IF 

IF strp%=limiet% THEN Toets 
strp%=strp%+l 

IF csr%<MaxBOXchar% THEN csr%=csr%+l 
PUT (xpo%,ypo%),CursorBeeld%,XOR 

IF insert%=0 THEN 

'(cursor achter laatste teken) Is de cursor uiterst 
rechts en zijn er 

'"genoeg tekens" om te scrollen dan scrollen, anders 1 
teken printen 

in$=in$+key$ 

IF strp%>MaxBOXchar% AND xpo%=MaxX% THEN 
Prin 

MinX%,ypos%,MID$(in$,l+strp%-MaxBOXchar%,MaxBOXchar%) 

ELSE 

eS=MoveS(WINDOW(8),xpo%,ypos%) 

CALL Text&(WINDOW(8),SADD(key$),1) 
xpo%=xpo%+8 
END IF 

ELSE 

'kijken of we met extra teken niet over de lengtelimiet 
heen gaan en 

'zo nee dan teken invoegen. 

IF LEN(in$)+l>limiet% THEN 
strp%=strp%-l 

IF csr%-1<MaxBOXchar% THEN csr%=csr%-l 
ELSE 

buf$=MID$(in$,strp%,LEN(in$)):in$=LEFT$(in$,strp%-l) 
in$=in$+key$+buf$ 

Prin MinX%,ypos%,MID$(in$,l+strp%-csr%,MaxBOXchar%) 

IF xpo%OMaxX% THEN xpo%=xpo%+8 
END IF 
END IF 

PUT (xpo%,ypo%),CursorBeeld%,XOR 
END IF 
GOTO Toets 

'Voorbereiding: De al "ingevoerde tekst" printen, 
cursorpositie goed zetten, 

' kleuren instellen. Cursor aanmaken als deze nog niet 
gemaakt is (in 

' csrbeeld% array) en juiste toegestane invoerkarakters 
kiezen. 


VoorBereiding: 
in$=buf$:strp%=LEN(buf$) 

MaxBOXchar%=breedte%/8:MinX%=xpos %+4:MaxX%=MaxBOXchar% * 8+MinX% 

COLOR Voorgrond%,Achtergrond% 

IF LEN(buf $)=>MaxBOXchar% THEN 
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csr%=MaxBOXchar% 

Prin MinX%,ypos%+6,RIGHT$(in$,MaxBOXchar%) 

ELSE 

csr%=LEN(buf$) 

Prin MinX%,ypos%+6,in$+SPACE$(MaxBOXchar%-strp%) 

END IF 

xpos%=MinX%+8*csr% 
xpo%=xpos%:ypo%=ypos% 
ypos%=ypos%+6 

'vanaf hier ypos%=ypo%+6 (wordt veel gebruikt in Prin x,y,$) 

IF csrbeeld% THEN 

PUT (xpo%,ypo%),CursorBeeld%,XOR 
ELSE 

LINE (xpo%,ypo%)-STEP(1,7),Voorgrond% XOR Achtergrond%,b 
GET (xpo%,ypo%)-(xpo%+l,ypo%+7),CursorBeeld% 

END IF 
csrbeeld%=-l 

IF type%=0 THEN 

st%=l:Lo%=32:hi%=255:ll%=Lo:12%=hi% 

ELSEIF type%=l THEN 

st%=0 :st$="0123456789-.*/ A () +=" 

ELSEIF type%=2 THEN 

st%=l:Lo%=48:hi%=57:11%=65:12%=122 
ELSEIF type%=3 THEN 
st%=0:st$=" jnJNyY" 

ELSEIF type%=4 THEN 

st%=0 :st$="0123456789 . " 

END IF 

RETURN ' { Voorbereiding } 

CsrAanUit: 

PUT (xpo%,ypo%),CursorBeeld%,XOR 
PUT (xpo%+srt%, ypo%) , CursorBeeld'è , XOR 
RETURN 

PrnWrd: 

IF ss%=LEN(in$) THEN insert%=0 ELSE insert%=l 

'kijken of de inhoud van de box opnieuw geprint moet worden 

PUT (xpo%,ypo%),CursorBeeld%,XOR 

IF csr%+csrm%=>MaxBOXchar% OR csr%+csrm%<0 THEN 
csr%=0 :strp%=ss% 

prn$=MID$(in$,l+strp%,MaxBOXchar%):prn$=prn$+SPACE$(MaxBOXchar 
%-LEN(prn$)) 

Prin MinX%,ypos%,prn$ 
xpo%=MinX% 

ELSE 

csr%=csr%+csrm%:xpo%=MinX%+csr%*8:strp%=ss% 

END IF 

PUT (xpo%,ypo%),CursorBeeld%,XOR 
RETURN 

END SUB ' { Invoer } 

SUB Pijl (x%,y%,height%,b%) STATIC 
AREA (x%,y%):AREA STEP(b%,height%/2):AREA 
STEP(-b%,height%/2):AREA STEP (0,-height%):AREAFILL 
END SUB 

SUB title (x%,y%,title$,wwidth%) STATIC 
COLOR 3 : CALL RectFill&(WINDOW(8),0,0,wwidth%,8) 

COLOR 1,3:LINE (0,9)-(wwidth%,9) 
e&=Move&(WINDOW(8),x%,y%) 

CALL TextS(WINDOW(8),SADD(title$),LEN(title$)) 

END SUB 


' STRING PATTERN MATCHING Module 
' *Datum: 20-Aug-1989 *Versie vl.0 
' Geschreven door R.Sloot 
' gebruikte pattern karakters: *, [] and ? 

' *end,*end[l-4] = *end[1234],*end[16-9] = *end[16789], 
*bla[m-z]?bla* 

' start*end???,?????,???lala*??boe 


' De routine keert met MatchFound% = TRUE (-1) terug als er 
een over- 

' eenkomst en bij geen overeenkomst MatchFound% = FALSE (0) 
' Opmerking: Match is niet case-sensitive, maar is hij wel 
te maken 

' door de ucase$ statements (2) uit de routine te halen. 

' Aanroep: match "st[a-b]rt*[0-9].INFO",vergelijking$ 

SUB Match (pat$,comp$) STATIC 
SHARED Matchfound% 

'watch% :vlag voor uitzonderingsgeval pattern karakters 
'ppos % :positie in de pattern$ 

'epos % .-positie in vergelijkingsstring waar tot daar aan 
toe overeenkomst 

' p % :positie van (volgend) patternkarakter 

watch%=0 :pat$=UCASE$(pat$):comp$=UCASE$(comp$) 

Matchfound%=-l:ppos%=l -.GOSUB NextPATChar :ppos%=p% 

IF ppos%=>l THEN 

'vergelijk tekst als eerste deel tekst is 
IF ppos%=>2 THEN 

IF LEFT$(pat$,ppos%-l)<>LEFT$(comp$,ppos%-l) THEN 
Matchf ound%=0 :EXIT SUB 


END IF 
cpos%=ppos% 

'vergelijk totdat pat$ doorlopen is 
WHILE ppos%<=LEN(pat$) 

pchar$=MID$(pat$,ppos%,1) 

IF pchar$="*" THEN 

'is * het laatste teken dan overeenkomst 
IF ppos%=LEN(pat$) THEN EXIT SUB 
ppos%=ppos%+l:GOSUB 
NextPATChar:pl%=INSTR(ppos%,pat$," *") 

'als er een ?,* of [ direkt achter * staat is dat 
een uitzonderings- 

'geval. Staat er een * niet direkt achter * dan 
tussenliggende tekst 

'vergelijken, anders (er staat een [ of ? niet 
direkt achter *) 

'moet het laatste stuk van de vergelijkingstring 
(comp$) vergeleken worden 

IF ppps%=p% THEN 
watch%=-l 
ELSEIF pl%>0 THEN 

search$=MID$(pat$,ppos%,p%-ppos%) 
pl%=INSTR(cpos%,comp$,search$) 

IF pl%=0 THEN Matchf ound%=0 :EXIT SUB ELSE 
cpos%=pl%+LEN(search$) 

ELSE 

IF p%=0 THEN p%=LEN(pat$)+1 
search$=MID$(pat$,ppos%,p%-ppos%) 

'nu cpos% op goede positie van rechts gezien 
zetten, waarvoor het 

'aantal werkelijke karakters vanaf ppos% nog 
geteld moeten worden. 

'bv :*test[l-4]? :aantal werkelijke karakters na 
* = 6 ([--] en ? 

'tellen als 1) dus cpos% moet op 6e karakter van 
rechts gezet worden 

GOSUB RightCsearch:IF Matchfound%=0 THEN EXIT SUB 
IF search$OMID$ (comp$, cpos%, LEN (search$) ) THEN 
Matchf ound%=0 :EXIT SUB 

cpos%=cpos%+LEN(search$) 

END IF 
ppos%=p% 

ELSEIF pchar$="[" THEN 

' [-] ontleden 

ppos%=ppos%+l 
p%=INSTR(ppos%,pat$, "]") 
pl%=INSTR(ppos%,pat$, 

IF pl%=0 OR pl%=>p% THEN pl%=p% 
search$=MlD$(pat$,ppos%,pl%-ppos%) 
endb$=MID$(pat$,p%-l, 1) 

IF watch% THEN 

'als er geen * meer is (*[1-4]abc?) dan 
uitzoeken welk teken 

'van rechts gezien in comp$ vergeleken moet 
worden (RightCsearch) 

'met bereik anders (*[a-d]2500 UX*) teken zoeken 
in comp$ vanaf 

'cpos% dat voldoet aan bereik. 


watch%=0:in%=0 :pl%=l:ppos%=p%+l:p%=INSTR(ppos%,pat$,"*") 

IF p%=0 THEN 

GOSUB RightCsearch:IF Matchfound%=0 THEN EXIT 

SUB 

c$=MID$(comp$,cpos%,1):cpos%=Cpos%+l 
IF NOT (INSTR(search$,c$)=>1 OR 
(c$=>RIGHT$(search$,1) AND c$<=endb$)) THEN 
Matchfound%=0 :EXIT SUB 
ELSE 

notfound%=-l 

WHILE notfoünd% AND cpos%<=LEN(comp$) 
c$=MID$(comp$,cpos%,1) 

IF INSTR(search$,c$)=>l OR 

(c$=>RIGHT$(search$,1) AND c$<=endb$) THEN notfound%=0 
cpos%=cpos%+l 
WEND 

IF notfound% THEN Matchf ound%=0 :EXIT SUB 
END IF 
ELSE 

'1 teken op cpos% in comp$ op bereik testen bv 

a[ga-d]zo* 

IF cpos%>LEN(comp$) THEN Matchf ound%=0 :EXIT SUB 
c$=MID$(comp$,epos %,1) 

IF NOT (INSTR(search$,c$)=>l OR 
(c$=>RlGHT$(search$,1) AND c$<=endb$)) THEN 
Matchf ound%=0 :EXIT SUB 

ppos%=p%+l:cpos%=cpos%+l 

IF p%=LEN(pat$) AND cpos%<=LEN(comp$) THEN 
Matchf ound%=0 :EXIT SUB 
END IF 

ELSEIF pchar$="?" THEN 
IF watch% THEN 

'uitzondering : *???abc[o-r] 

watch%=0 :p%=INSTR(ppos%,pat$,"*") : IF p%=0 

THEN pl%=0 

GOSUB RightCsearch:IF Matchfound%=0 THEN EXIT 

SUB 

END IF 

'loop pat$ af : als het een ? is dan kijken of 
er nog een teken 
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'beschikbaar is in comp$, wordt er een [ or * 
gevonden dan wordt 

'deze afgehandeld in de "hoofdloop" maar losse 
tekens worden wel 

'afgehandeld in deze for-next 

FOR i%=ppos% TO LEN(pat$) 

p%=i%:c%=ASC(MID$(pat$,i%,1)) 

IF c%=42 OR C%=91 THEN 
i%=LEN(pat$)+10 
ELSEIF C%=63 THEN 

IF cpos%>LEN(comp$) OR (i%=LEN(pat$) AND 
cpos%OLEN (comp$) ) THEN Mat chfound%=0 : EXIT SUB 
cpos%=cpos%+l 
ELSE 

IF NOT c%=ASC(MID$(comp$,cpos%,1)) THEN 
Matchf ound%=0 :EXIT SUB 

cpos%=cpos%+l 
END IF 
NEXT 

IF i%=LEN(pat$)+11 THEN ppos%=p% ELSE ppos%=p%+l 

ELSE 

'tekststring vergelijken 
GOSUB NextPATChar 

IF p%=0 THEN pl%=LEN(pat$)+l ELSE pl%=p% 
search$=MID$(pat$,ppos%,pl%-ppos%) 

IF search$OMID$ (comp$, cpos%, LEN (search$) ) THEN 
Matchfound%=0:EXIT SUB 

ppos%=pl%:cpos%=cpo$%+LEN(search$) 

END IF 
WEND 
ELSE 

IF pat$Ocomp$ THEN Matchfound%=0 
END IF 

EXIT SUB 'de routines hieronder niet uitvoeren.. 


'NextPATChar : zoekt volgend pattern karakter : * [(]) of ? 


NextPATChar: 

p%=0 

FOR i%=ppos% TO LEN(pat$) 

IF INSTR("*[?",MID$(pat$,i%,1))=>1 THEN 
p%=i%:i%=LEN(pat$)+1 
NEXT 
RETURN 

'RightCsearch : telt aantal werkelijke tekens vanaf ppos% in 
pat$ en 

'zet cpos% dan op goede positie van waaraf vergeleken moet 
worden 


RightCsearch: 
in%=0 

FOR i%=ppos% TO LEN(pat$) 
c$=MID$(pat$,i%, 1) 

IF c$="[" OR in% THEN 

IF c$="]" THEN pi%==pl%+l: in%=0 ELSE in%=-l 
ELSE 

pl%=pl%+l 
END IF 
NEXT 

cpos%=l+LEN(comp$)-pl% 

IF cpos%<l THEN Matchfound%=0 
RETURN 

END SUB 


Einde listing filereq 



HETRECEPTVOORGOEDESERVICE! 


Helaas bestaat er geen computer die 
NOOIT stuk gaat. Daarom staat het 
service-team van Escon klaar om al uw 
storingen te verhelpen. 

Escon is een geautoriseerd service- 
center dat on-line met de fabrikant is 
verbonden en gespecialiseerd is in 
setvice aan eindgebruikers, leveranciers 
én producenten. 


Uw voordeel 

» Li weet waar U aan toe bent, want Escon hanteert vaste 
reparatietarieven. Bij reparaties boven de fl. 150,- krijgt U 
op verzoek eerst een prijsopgave van de te verwachten 
kosten.* 

■ Op alle reparaties geven wij drie maanden volledige ga¬ 
rantie. En natuurlijk gebruiken we altijd originele onder¬ 
delen zodat de kwaliteit gegarandeerd is. 


De mogelijkheden 


Escon - uitmuntend en veelzijdig 


■ U brengt de computer zelf naar ons service centrum en 
haalt hem na reparatie weer af. 

■ U belt ons service-centrum: wij halen Uw computer op en 
brengen hem na reparatie bij U terug.* 

■ In spoedgevallen brengt U, na een telefonische afspraak 
met ons service-centrum, de computer en U wacht op de 
reparatie.* 

I * Hieraan zijn extra kosten verbonden. 

_I ** Op deze computers verlenen wij voordelige 

mmmm «bes! service-abonnementen. 


Wij repareren alle DOS computers, maarzijn ookspecialist 
in de volledige produktlijn van COMMODORE: C-64, C128 
(D), AMIGA 500/2000 en de PC-lijn vanaf PC 10 t/m PC- 
60.** Ook geven we service op randapparatuur. 



ELECTRONIC SERVICE CONTRACTORS BV 


■■■■■□ 

■■■■□■ 


Aanleveren reparaties en informatie over reparaties: 


ESCON BV 
Antoniuslaan 1 
3341 GA H.l. Ambacht 


ESCON (Gebouw Commodore) 
Dynamostraat 1 
1014 BN Amsterdam 


.telefoon: 01858-19922. 
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Amiga Nieuws 
in het kort V 


Bridgeboard voor A500 

E indelijk is het dan zover. Bin¬ 
nenkort kunnen Amiga 500- 
bezitters op normale snelheid 
genieten van MS-DOS soft¬ 
ware. Kolf Computer Supplies (KCS), 
bekend van de Power Cartridge voor de 
C-64, is nog druk bezig de laatste hand te 
leggen aan een Bridgeboard voor de Ami¬ 
ga 500. 

Zij die nu een A500 hebben en MS-DOS 
willen draaien, zijn genoodzaakt om eerst 
de emulatie-software te draaien. Daarna 
wordt het(MS-) DOS ingevoerd en is de 
Amiga klaar voor gebruik. Maar de snel¬ 
heid laat nogal te wensen over en de ma¬ 
chine gaat vaak ‘hangen’; een Gum is het 
gevolg. Dat houdt in dat de hele proce¬ 
dure weer van voren af aan begint. De lol 
is er op die manier al gauw af. 

KCS is een aantal maanden geleden be¬ 
gonnen met de ontwikkeling van een 
soort Bridgeboard, dat we al kennen van 
de A2000. Zelf noemen ze het ‘Power PC 
Board. De kaart is net zo groot als een in¬ 
terne geheugenuitbreiding en past exact 
onderin de Amiga 500. Het voordeel hier¬ 
van is dat die niet open geschroefd hoeft 
te worden; ‘insteken en klaar!’ is hier de 
leus. 

De kaart zelf is voorzien van een V30-8 
Mhz processor, 1 megabyte geheugen en 
een clock. De clock loopt op batterijen en 
is zowel voor de PC- als de Amiga-kant 
bruikbaar. Dat geldt in zekere zin ook 
voor het geheugen. Van de 1 MB is de 
helft geschikt voor de Amiga. Daarmee is 
de kaart wat dat betreft gelijk aan een in¬ 
terne geheugenkaart van 512 KB. De an¬ 
dere helft is ook bruikbaar, maar alleen 
als RAM-disk. Software hiervoor wordt 
bijgeleverd. 

Alle aangesloten diskdrives zijn te ge¬ 
bruiken als MS-DOS drive. Die compati¬ 
biliteit geldt ook voor alle aansluitingen 
als parallelle- en seriële poort. Verder on¬ 
dersteunt de kaart de beeldscherm modi 
MDA, Hercules en CGA. 

Het voordeel van de kaart is het stukje 
software dat toch nog nodig blijft om van 
de Amiga een PC te maken. Door dat zo 


te laten, kan KCS het Power PC-Board 
steeds blijven uitbreiden. De kaart krijgt 
namelijk van de floppy instructies hoe zij 
zich moet gedragen. Zo staat de onder¬ 
steuning van de Commodore harddisk 
A590 ook al op het programma. Hetzelf¬ 
de geldt voor EGA- en VGA-ondersteu- 
ning. In een latere versie zal de software 
daarvoor worden aangepast. 

Het Power PC-Board wordt compleet ge¬ 
leverd met MS-DOS 4.01, GW-Basic, 
DOS Shell en drie Nederlandse boeken. 
Inl: 078-310931 


WordPerfect 4.1 
vernieuwd 

p PC gebied verschijnt de 

ene versie na de andere van 
f||, { het overbekende tekstver- 

! * v . Jr werkingspakket WordPer¬ 

fect. En hoewel menig Amiga-gebruiker 
versie 5.0 al verwacht, vanwege de grafi¬ 
sche mogelijkheden, blijft het maar bij 
4.1. Desalniettemin werd deze versie be¬ 
hoorlijk vernieuwd. Je heb dan ook de 
neiging om te spreken van ‘4.2’. 

Voor hen die al weer gewend waren aan 
de Nederlandse versie, betekenen de ver¬ 
nieuwingen een kleine teruggang, aange¬ 
zien het programma weer in het Engels 
werkt, net als de eerste versie voor de 
Amiga. 

Voor het eerst is het mogelijk om de buff- 
er-grootte aan te geven, waardoor er op 
het geheugen kan worden bespaard. Ver¬ 
der kan men nu vanuit WP direct MS- 
DOS files lezen en schrijven; handig voor 
iemand die met beide systemen moet wer¬ 
ken. Voorheen moest zoiets met een 
‘vreemde' utility gebeuren, zoals DOS-2- 
DOS. 

Onder andere voor deze mogelijkheid is 
de file-functie (onder F5) helemaal veran¬ 
derd en lijkt nu een beetje op de file-ma- 
nager uit de WP Library. (Die file-mana- 
ger doet op zijn beurt weer denken aan 
een programma als Disk-Wizard.) Bij ex¬ 
porteren van een file komt men weer in 
een soort bestandenlijst. Daarnaast kan er 


een overzicht worden opgevraagd van 
alle drives en directorie’s en is sorteren 
op naam mogelijk. 

Kleuren instellen hoeft nu niet meer via 
de Preferences. Met een klein mengpa- 
neeltje binnen WordPerfect kunnen die 
naar wens worden ingesteld. 

De paginalengte is nu ook te definiëren: 
er kan gekozen worden tussen 11 of 14 
inch. De vervelende requester bij het af- 
breekstreepje (alleen maar weg te krijgen 
door aan te geven waar hij moest en 
‘OK’) is vervangen door een comfortabel 
menuutje, waarin ook kan worden geko¬ 
zen voor ‘niet afbreken’. 

De vernieuwde versie ondersteunt 283 
printers en is gratis voor geregistreerde 
gebruikers van WordPerfect voor de 
Amiga. 

Inl: 010-4070100 


Portable Amiga 

w^v 

e firma Gigatron in Duitsland 
dacht het op tijd voor elkaar 
te kunnen hebben: een eigen 
ontwikkelde portable Amiga. 
De bedoeling was dit unieke model op de 
grote beurs in Köln, de Amiga ’89, te 
kunnen laten zien. Maar helaas voor de 
toeschouwers lukte dit niet op tijd. 
Volgens Gigatron was het echt niet moge¬ 
lijk het apparaat al in november klaar te 
hebben. Tijdens de Amiga ’89 maakte het 
bedrijf bekend dat de laptop nu voor eind 
maart staat gepland. 

Een woordvoerder van Gigatron vertelde 
ons desgevraagd dat zij momenteel geen 
enkele mededeling rond de laptop kunnen 
doen. Wel zij hij dat de machine naar aller 
waarschijnlijkheid op de Cebit in Hann- 
over (21-28 maart) zal worden geïntrodu¬ 
ceerd. 
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Amiga in Amersfoort 

■ m wt ▼ 

erken met de Amiga 
1# mondt voor een groot 
aantal mensen uit in het 
volgen van cursussen, 
om op die manier nog meer uit het appa¬ 
raat te kunnen halen. Inwoners van 
Amersfoort en omgeving zijn wat dat be¬ 
treft in een bevoorrechte positie. Het Kul- 
tureel Centrum De Hof in Amersfoort (in 
de Flint) organiseert namelijk cursussen 
op het gebied van animatie en DTP 
(DeskTop Publishing). 

Voorafgaand aan het ‘echte’ werk krijgt 
iedere cursist een introductie, waarbij 
wordt gewerkt aan de hand van DeLuxe 
Paint, de WorkBench en DigiView. 

Bij het animeren staan de programma’s 
Videoscape, PageFlipper en DeLuxe 
Paint ter beschikking en DTP’en gebeurt 
met DeLuxe Paint, PageSetter en Profes¬ 
sional Page. Ook is het mogelijk alleen de 
introductie te volgen. Voor bedrijven be¬ 
staat daarnaast nog de mogelijkheid een 
cursus op maat te nemen. 

Naast de cursussen kan iedere Amiga-be- 
zitter tegen betaling gebruik maken van 
de faciliteiten van het Kultureel Centrum. 
Voor velen zal dit een uitkomst zijn, om¬ 
dat apparatuur als laserprinter, dia-con- 
verter, etc. bijna nooit thuis voorhanden 
zijn. 

Een prijsindicatie voor het overzetten van 
IFF-plaatjes naar dia’s: ƒ 30,- startkosten, 
en ƒ 5,- tot ƒ 7,50 per dia. 

Inl: 033-729094 

Van Spelcomputer tot 
high-end Black Tower 

5|S e kunt het zo gek niet bedenken of 
Vii het is wel mogelijk met een Com- 
|modore Amiga.’ Dat zou een be¬ 
zoeker bij 3Gitaal in Amsterdam 
Ktfnnen denken. Dit bedrijf maakt met be¬ 
hulp van Amiga’s en daarvoor geschikte 
apparatuur animaties voor onder andere 
de KLM, de Vara en RTL Veronique. 
Maar 3Gitaal is ook Commodore-dealer, 
en levert daarnaast nog andere interessan¬ 
te produkten voor de Amiga van andere 
leveranciers. 

Wie wel eens meer wil dan een standaard 
Amiga en het geld er voor over heeft, kan 
eens overwegen of hij/zij de machine niet 
uit zal breiden met bijvoorbeeld een 
Bridgeboard, een processorversneller of 
een geheugenuitbreiding. Dat uitbreiden 
kan op verschillende manieren en bij 
meerdere dealers in Nederland en daar¬ 
buiten. 

Een van die leveranciers is 3Gitaal in 
Amsterdam. Op de prijslijst van deze fir¬ 
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ma staat vrijwel net zo vaak 'Commodo¬ 
re’ als ’X-Pert’ als merk vermeld. En dat 
klopt ook, want 2Gitaal is importeur van 
dit Duitse merk. 

X-Pert staat bekend als Amiga-tuner, wat 
zoiets wil zeggen als ’mooimaker’. Erg 
fraai om te zien is de Amiga Black To¬ 
wer. Het een totaal omgebouwde Amiga 
2000B met alle snufjes die je je maar kunt 
wensen. De ombouw bestaat uit een 
zwarte metalen kast met een zogenoemde 
servicedeur die gemakkelijk is voor het 
in- en uitbouwen van uitbreidingen van 
welke aard dan ook. 

Het moederbord is voorzien van een 
IBM- geheugen met de nieuwe Fat Agnus 
chip. In tegenstelling tot de normale Ami¬ 
ga 2000 is er bij de Black Tower een dis¬ 
play in de kast gebouwd die de snelheid 
in Megaherz aangeeft. Verder behoren 
een dubbele ventilator en een dubbele 
230 volt-aansluiting voor het doorlussen 
van monitor en printer tot de standaard 
Black Tower-uitvoering. 

In de kast is meer dan voldoende ruimte 
voor extra harddidsks en floppy-drives. 
Net als de kast zijn de muis en het toet¬ 
senbord in zwart uitgevoerd. 3Gitaal kan 
de Black Tower geheel naar de wensen 
van de klant samenstellen. De prijs van de 
standaarduitvoering ƒ 5.998,-. 

Een ander bijzonder item zijn de Cheaper 
Net- en de Apple Talk-netwerkkaarten. 
Daarmee kunnen Amiga’s in een eigen 
net worden gekoppeld, maar ook aan een 
al bestaand netwerk. Zo kan met de Apple 
Talk-netwerkkaart de Amiga ook onder 
A-max (Apple Macintosh emulator voor 
de Amiga) gebruikt worden. 

Maar ook voor de PC-kant van de Amiga 
heeft 3Gitaal diverse produkten van X- 
Pert naast die van Commodore. De X- 
Pert Bridgeboards zijn qua prestaties be¬ 
ter, maar daardoor wel duurder. Voor de 
bezitters van de Commodore Bridge¬ 
boards heeft 3Gitaal ook up-grade kits 
naar de types van X-Pert. Naast deze 
’specialities’ heeft 3Gitaal ook een up¬ 
grade service naar onder meer Kickstart 
1.3, Fat Agnus, WorkBench 1.3 en Janus 
2 . 0 . 

Tenslotte kan iedereen die met zijn/haar 
Amiga met video, plaatjes of iets derge¬ 
lijks aan de slag wil bij 3Gitaal terecht 
voor genlocks, digitizers, scanners, image 
recorders en tekentablets. Natuurlijk 
hoort hier ook software bij. Op dit mo¬ 
ment is 3Gitaal bezig met het aansluiten 
en gebruiksklaar maken van een CD- 
ROM aan de Amiga. Wie kwaliteit wil 
voor zijn/haar Amiga en graag naderhand 
van een stukje support wil genieten, moet 
eens een kijkje nemen bij 3Gitaal in Am¬ 
sterdam. Vooral de professionele gebrui¬ 
ker vindt hier alles mogelijk voor een top- 
Amiga. 

Inl: 020-970035 
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9 MB intern in A500 


iemand hield het voor moge- 
; lijk: een geheugenuitbreiding 
’ljj van 8 MB in een Amiga 500. 
JL. : : Progressive Peripheral & 
Software (PPS) uit Denver (VS) is dat ge¬ 
lukt en het resultaat heet de EXP-8000+. 
Voorheen werden A500-gebruikers al 
verrast door de interne kaarten die tot 2 
MB RAM gaven, bijvoorbeeld de Mini- 
max van de Duitse firma Gigatron. 



De EXP-8000+ kaart van de Amerikaan¬ 
se firma PPS is ook bedoeld voor inbouw 
in de Amiga. Alleen de montage gaat iets 
anders in zijn werk dan bij de normale in¬ 
terne kaarten. De kaart wordt er dan van 
de bovenkant ingemonteerd, zodat de 
klep aan de onderkant gewoon gesloten 
blijft. Daardoor blijft de mogelijkheid be¬ 
staan nog een normale 512 KB kaart te 
monteren. In totaal komt het geheugen 
daarmee op 9 MB intern. Het enig nadeel 
aan de constructie is dat met het openen 
van de kast de garantie in gevaar komt. 
Bij de wat oudere modellen is dit natuur¬ 
lijk geen groot probleem. Het grote voor¬ 
deel is natuurlijk dat er geen storende 
kastjes aan de expansiepoort (aan de lin¬ 
kerkant) hoeven worden aangehangen. 

De kaart is in vier verschillende uitvoe¬ 
ringen leverbaar: zonder chips, als 2 MB, 
4 MB of als 8 MB kaart. Als optie is een 
68881 coprocessor leverbaar. Net als zijn 
kleinere neefjes is de EXP8000+ autofi- 
gurerend, dus regelt zijn eigen installatie. 
Voor zover bekend is er in Nederland nog 
geen leverancier van dit produkt. 

Inl: (VS) 1-303-8254144 


Muziek in Frankfurt 


gg 7 ommodore heeft bekend ge- 
;L°:; maakt, dat er op muziekge¬ 

bied, een aantal interessante 
ontwikkelingen te verwach¬ 
ten zijn. Dat gebeurt tijdens de Frankfurt 
International Music Fair van 21 tot en met 
26 maart in de Frankfurter Messe. 

De nieuwtjes zijn te verwachten op zowel 
op hard- als software te verwachten. 



Amiga 


Powerpacker: 

Meer files op een disk 



I edere Amiga-gebruiker kent het 
wel: nog even een laatste com¬ 
mando of programma op die 
schijf kopiëren en... diskette vol. 
Het lukt net niet om het over te 
zetten. Maar dat commando moet 
er om de een of andere reden 
toch op. Dan maar een ander de¬ 
leten en nog maar eens proberen. 
Een vaak voorkomend probleem: 
de diskette blijkt te klein te zijn. 

Dat is een probleem waar in de Public- 
Domain series een oplossing voor is: de 
cruncher, een programma dat files dan 
wel programma’s crunched, of tewel ver¬ 
kleint. Een meegegeven code zorgt er bij 
het opstarten voor, dat het programma in 
het geheugen weer de originele grootte 
krijgt en normaal werkt. Door nu zoveel 
mogelijk programma’s te crunchen of te 
‘packen’ kunnen er meer programma’s op 
een diskette. 

In dit nummer nemen we de belangrijkste 
en tegelijk nieuwe functies van het Pu- 
blic-Domain programma ‘PowerPacker’ 
versie 2.3a onder de loep. PowerPacker 
werd een aantal jaren door Rob Fontei- 
ne’s uitgebracht op zijn ANC-diskettes 
(nu UGA). Inmiddels vinden we het pro¬ 
gramma in zijn huidige versie terug in de 
PD-serie van Fred Fish. 




Pomif Tp-hï- 

Vet'sian L3a 

Fpee Chip ; File Hane ; . 

hmest i , , File Lsngth ; 

F?ee Fast : (SelCpunshed ; ., 

Wgest ; UföiM 


1 Scanning file 'ËFllPoaerPacket' 2,3a.’,.. 

toadiag eputtcKed eomtand File... 

Seepuncbing connand file.,. 

Dons, 

DecpuncHed iength : 52558 bytes. 



Simpel 

Crunchen met PowerPacker gaat eigen¬ 
lijk heel simpel. In het Project-menu al¬ 
leen maar ‘load’ klikken en de juiste file¬ 
naam in het menu zoeken en intikken, OK 
en de boel gaat lopen. Rechtsbovenin 


beeld staat de naam van de file, de origi¬ 
nele lengte en de gecrunchede lengte. In 
het grote scherm valt precies in procenten 
af te lezen, hoever het crunchen al gevor¬ 
derd is. 

PowerPacker slaat de verkleinde file op in 
een buffer. Dat houdt in, dat die na afloop 
op een diskette moet worden opgeslagen. 
Dat gaat, hoe kan het ook anders, met de 
save-opdracht ook uit het project-menu. 
Daarin staat ook het commando ‘Sleep’, 
waardoor PowerPacker op ‘stand-by’ kan 
worden gezet. Het programma gaat dan 
op de menubalk boven in beeld staan. 
Door er met de muis op te klikken, wordt 
PowerPacker weer wakker. 

De meest nuttige zaken staan eigenlijk in 
het Prefs-menu. Blijkens de eerste twee 
opties is er verschil tussen een command- 
en een data-file. Dat klopt ook wel. Com- 
mand-files dienen de al eerder genoemde 
code mee te krijgen waarmee ze automa¬ 
tisch kunnen opstarten en decrunchen. 
Data-files (bijvoorbeeld tekstbestanden) 
hebben een dergelijke code niet nodig, 
vandaar het verschil. 

Het decrunchen van een programma in 
het geheugen kan op verschillende ma¬ 
nieren op het scherm worden gevolgd. 
Welke manier hangt af van de optie ‘De- 
crunch color’. Simpel gezegd kan geko¬ 


zen worden voor het scherm of de muis. 
Voor welke manier je kiest, is een kwestie 
van smaak. Als gekozen wordt voor het 
scherm, dan verkleurt het beeld tijdens 
het ‘ontpakken'. Bij de andere optie ge¬ 
beurt datzelfde bij de muis. Amiga-ge- 
bruikers van bijvoorbeeld dMouse (laat 
de muis na een aantal seconden verdwij¬ 
nen als deze niet wordt aangeraakt) moe¬ 
ten wel in de gaten houden dat het knip¬ 
peren van de muis tijden het decrunchen 
niet te zien is. 

PPMore 

Nieuw in de versie 2.3 is de optie ‘Data 
suffix’. Dit is alleen van belang bij het 
crunchen van data-files. Wanneer dit punt 
gekozen wordt, hangt PowerPacker aan 
iedere file de extensie ‘.pp’. Op die ma¬ 
nier kun je steeds zien welke files gepa- 
cked zijn en welke niet. Die extensie is 
ook erg handig met een nieuw hulppro¬ 
gramma met de naam PPMore. ‘More’ of 
‘less’ kennen de meesten wel als tekstvie- 
wers. Nu, PPMore is net zoiets, alleen dan 
voor de teksten die met PowerPacker 
werden gecrunched. 

Encrypt data slaat ook tekst-files. Daar¬ 
mee kunnen die files van een password 
worden voorzien tegen onbevoegd inzien. 
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In het volgende menu ‘Recrunch’ staan 
de mogelijkheden voor het ontpakken en 
een lijst met alle crunchers die PowerPa- 
cker ondersteunt. Het menu ‘Hunklab’ is 
voor gevorderen, waarbij kan worden be¬ 
paald of een programma zich moet de- 
crunchen in het Fast- of Chip-geheugen. 
En ten slotte ‘Script’. Omdat crunchen 
nogal lang kan duren, kan een draaiboek 
worden aangelegd. Vooraf moet je dan 
ingeven welke files op welke drives ge- 
crunched moeten worden en waar die 
moeten worden bewaard. Zo kan de Ami¬ 
ga bijvoorbeeld ’s avonds een hele disket¬ 
te crunchen, terwijl je zelf met wat anders 
bezig bent. 


Met de nieuwe versie worden ook drie op 
zichzelf staande programma’s meegele¬ 
verd, waarvan PPMore er een is. De ande¬ 
re twee zijn ‘Crunch’ en ‘Decrunch’. In 
feite zijn dit twee kleine PowerPackers. 
Zoals de namen al aangeven crunched de 
een en decrunched de ander. Door ge¬ 
woon het commando op de CLI in te ge¬ 
ven, verschijnen vervolgens de opties 
voor het gebruik in beeld. Deze program¬ 
ma’s nemen veel minder ruimte in beslag 
en kunnen in feite hetzelfde als het com¬ 
plete programma. 

14/. S. 


De hier beschreven versie van Power- 
Packer staat op Fish 253. De eerdere 
versies zijn vergelijkbaar, aangezien er 
per up-date maar weinig veranderin¬ 
gen werden doorgevoerd. Maar een 
aantal functies van 2.3a zullen op ou¬ 
dere versies niet voorkomen. De af¬ 
zonderlijke commando’s Crunch, De¬ 
crunch en PPMore zijn alleen te vin¬ 
den bij PowerPacker versie 2.3a. 


Public-Domain-software 

Wat is het? 


G oede software voor de Ami¬ 
ga hoeft niet duur te zijn. En 
dan hebben we het niet direct 
over de pakketten die door ge¬ 
renommeerde fabrikanten wor¬ 
den geleverd, maar over pro¬ 
gramma’s die voor een prikkie te 
koop zijn of zelfs zomaar te krij¬ 
gen: Public-Domain-software 

(PD). Vrij vertaald betekent het: 
‘software die beschikbaar is voor 
iedereen’. 

Het verschil met professionele software 
is niet alleen de prijs, maar ook het recht 
van de auteur. De maker van een PD- 
programma blijft, eigenaar, die van een 
prof-programma verkoopt het meestal 
aan een software-fabrikant; hij heeft er 
zo goed als niets meer over te zeggen. 
Een verder verschil is de handleiding 
die bij PD niet in boekvorm wordt bijge¬ 
leverd, maar meestal als een tekst-file 
op de diskette staat. 

Bij PD kunnen we onderscheid maken 
tussen ‘Freeware’, ‘Public-Domain’ en 
‘Shareware’. Bij Freeware heeft de au¬ 
teur alle rechten aan de kant gezet. Iede¬ 
reen mag het programma gebruiken, het 
zelfs een andere naam geven, of veran¬ 
deren. Bij Public-Domain behoudt de 
auteur wel de rechten over het program¬ 
ma, waardoor het weliswaar gekopieerd 


mag worden, maar niet ingezet voor 
commerciële doeleinden. Meestal vra¬ 
gen de auteurs wel een bijdrage, maar 
aan die vraag hoef je niet persé te vol¬ 
doen, hoewel zo’n bijdrage wel zo eer¬ 
lijk is. En ten slotte moet de bezitter van 
Shareware, wanneer hij ook daadwerke¬ 
lijk gebruik maakt van het programma, 
een vast bedrag overmaken naar de pro¬ 
grammeur. Wanneer dat niet gebeurt, 
maakt hij zich schuldig aan diefstal en 
overtreedt hij het auteursrecht. 

In de praktijk worden deze drie groepen 
voor het gemak in één adem genoemd 
als ‘Public-Domain-software’, wat niet 
inhoudt dat daarmee de verschillen zijn 
opgeheven. 

Verkrijgbaarheid 

Hoe kom je nu aan deze veel goedkope¬ 
re en vaak nuttige software? Daar zijn 
een aantal verschillende manieren voor. 
Allereerst zijn er al hele series in om¬ 
loop bij veel Amiga-gebruikers. Fred 
Fish PD is daarvan de grootste en be¬ 
kendste. Verder zijn er firma’s die PD- 
software verkopen, maar ook via een ge¬ 
bruikersgroep is er wel aan te komen. 
Ten slotte bestaan er in Nederland Bul¬ 
letin Boards waar je die software met 
een modem vanaf kunt halen. 

Voor beginners is het vaak moeilijk om 
via kennissen aan PD-software te ko¬ 
men. Het tweede is voor sommigen te 


duur, want op zo’n PD-diskette staan 
wellicht ook programma’s waar je niets 
aan hebt. De laatste manier is alleen dan 
goedkoop als je al een modem hebt. Op 
die manier krijg je precies wat je hebben 
wilt. 

Blijft over de mogelijkheid een Amiga- 
gebruikersgroep in je eigen omgeving te 
zoeken. Bijna al die groepen hebben één 
of meerdere PD-seriés, waarvan de pro¬ 
gramma’s tegen geringe kosten te koop 
zijn. Het geld daarvan vloeit dan terug 
in de kas van de vereniging. Deze ma¬ 
nier is vooral voor beginners meestal de 
gemakkelijkste. 

Tot zover een overzicht van de soorten 
PD en de kanalen waarlangs deze soft¬ 
ware zijn weg vindt. In de volgende 
Commodore Info hopen we een lijst te 
kunnen publiceren van ons bekende ge¬ 
bruikersgroepen in Nederland. Ben je 
zelf lid van een groep, of weetje waar er 
één zit, schijf dan even een briefkaartje 
aan de redactie. 


IIP s Wanneer je veel PD-program- 
ma’s wilt bewaren, denk dan eens na 
over de aanschaf van een 5,25 inch flop¬ 
py drive. Dit formaat diskettes is veel 
goedkoper dan het gebruikelijke 5,5 
inch formaat voor de Amiga en werkt 
net zo goed. 
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On-beveiligen van Basic 


Public Domain 

Van de listings en de daarbij behorende conversie-tabel, is een publiodomain-schijf 
gemaakt, die voor ƒ 12,50 (incl. BTW en verzendkosten) te bestellen is bij Infolist, 
giro 3157656 t.n.v. Infolist Amsterdam, onder vermelding van Unprotect disk. Voor 
België: stort Bfr. 300 op BBL nr. 310050602562 t.n.v. SAC. 

Deze schijf bevat vier bestanden: 

° Read.Me bevat belangrijke informatie, waarvan ik vind dat men deze gelezen 
moet hebben alvorens men met het programma Unp van start gaat. Deze file is 
gecreëerd met ED. 

° Unp is het met AC/BASIC gecompileerde AmigaBasic-programma, dat m.b.v. 

de file Unprot.dl43 het UNPROTECTEN kan verzorgen. 

° Unprot.dl43 is de CONVERSIE-tabel, die onontbeerlijk is voor het programma 
Unp. 

° Unp.acb kan ook vanuit AmigaBasic geRUNd worden. Alvorens het program¬ 
ma te RUNnen, dient u precies één keer (niet vaker) het AmigaBasic-commando 
(CLEAR ,60000) te hebben gegeven. 

De listings publiceren bleek niet zo zinvol, aangezien het programma alleen werkt 
als de CONVERSIE-tabel beschikbaar is. Deze file is 36.608 bytes groot en moet 
hexadecimaal worden geprint, waarbij voor de leesbaarheid een blank tussen 2 op¬ 
eenvolgende bytes moet worden gezet. Dit betekent ca. 3 x 36.608 = 109.824 char- 
acters. Bij 100 regels van 100 characters betekent dit toch 11 blz. vol. En dan staat 
het nog niet in de juiste vorm op diskette. 


D aar zit je dan met je voor ƒ 15,- 
gekochte programma (spel). 
Er zijn 30 levels mogelijk, maar 
middenin level-17 (meestal in de¬ 
zelfde spelsituatie) gaat het fout 
(altijd). FLITS, wit scherm, dat is het 
einde. Een of andere leukerd heeft 
alle kleuren op wit gezet, waar¬ 
door iedere melding onzichtbaar 
wordt en blijft. 

Zo begon het artikel van Commodore 
nummer 1 van dit jaar. Alleen ging er met 
de samenstelling het een en ander fout. In 
dit nummer willen we dit graag rechtzet¬ 
ten. 

We starten op pagina 65 ongeveer halver¬ 
wege de tweede kolom, waar staat: if POS 
143 then POS = 1. Dit moet zijn: if POS 
143 then POS = 1. 

Het tweede gedeelte dat voor verbetering 
vatbaar is, begint op pagina 66 onderaan 
de eerste kolom met het woordje Tk’. 
Vanaf daar moet de volgende tekst komen 
te staan: 

Ik heb uiteindelijk gekozen voor een re- 
cordlengte=256. Van de INPUT-file wor¬ 
den net zo lang records van 256 bytes ge¬ 
lezen totdat er minder dan 256 bytes over 
zijn. Als nog niet alle bytes van de IN- 
PUT-files behandeld zijn, wordt de OUT- 
PUT-file gesloten en weer geopend, maar 
nu als SEQUENTIAL-file en voor AP- 
PEND. Daarna wordt er nog 1 record van 
256 bytes gelezen. Hiervan behoren nog 
maximaal 255 bytes bij de INPUT-file. 
Deze bytes worden één voor één behan¬ 
deld en weggeschreven naar de OUT- 
PUT-file. 

Bij de definitie van de verschillende tel¬ 
lers dient rekening gehouden te worden 
met de maximale waarde die ze kunnen 
krijgen. Short-integers (%) werken snel¬ 
ler dan long-integers (&). De maximale 
waarde van een short-integer is 32.767 en 
de maximale waarde van een long-integer 
is 2.147.483.647. Tellers die de grootte 
van een file (in bytes) bevatten, moeten 
long-integers zijn (een file kan meer dan 
32.767 bytes bevatten). Tellers die de 
grootte van een file (in records van 256 
bytes) bevatten, kunnen short-integers 
zijn. De maximale file-grootte is dan 
32.767 * 256 = 8.388.352 (ruim 9 disket¬ 
tes vol) en dat is meer dan voldoende. 

De huidige gecompileerde versie doet 
over 13.000 bytes zo’n 2 a 3 minuten en 
dat is circa 50 maal sneller dan de eerste 
ongecompileerde versie. 


Het compileren zelf maakte het program¬ 
ma maar 2,5 maal sneller (zie ook Com¬ 
modore 89/4 pag. 72/73). 


R.C.A.B. Kohier 

Gerrit van der Veenstraat 37 

3762 XH Soest 

I 
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PD-viruskiller 

Een goedkoop medicijn 



mmm backemf bootblöcks 


M _ 

ICOHIFY 

Zerovirus versie 1.3 

Bootblock keuze 


E igenlijk heeft het altijd al be¬ 
staan: kopiëren, om zo goed¬ 
koop mogelijk aan goede pro¬ 
gramma’s te komen. Vooral de 
laatste twee jaar heeft het kopië¬ 
ren een criminele houding aange¬ 
nomen. Van programma’s zijn te¬ 
genwoordig al kopieën op de 
markt voordat het officieel op de 
markt is. 

Daarnaast is er nog een ontwikkeling on- 
staan: de virussen. Eind 1989 (vrijdag 13 
oktober) was heel Nederland nog in rep 
en roer door het zogenoemde ‘Data-Cri- 
me’-virus, dat na allerlei voorzorgsmaat¬ 
regelen, zelfs van de overheid, uiteinde¬ 
lijk maar op een paar plaatsen in de we¬ 
reld opdook. Maar de paniek was niet van 
de lucht. 

Ook de Commodore Amiga ontkomt niet 
aan het virus-fenomeen. Datzelfde geldt 
voor het kopiëren van programma’s. We 
hoeven daarbij nog niet eens te denken 
aan originele programma’s. Denk alleen 
maar eens aan Public-Domain software 
die op vele gebruikersclub-bijeenkom- 
sten wordt gekopieert. Wanneer eenmaal 
een virus op een diskette staat en de 
schrijfbeveiliging staan niet aan, dan ver¬ 
menigvuldigt het virus zich direct op de 
andere, nieuwe, diskettes; het is als het 
ware een epidemie. Virussen verspreiden 
zich op diskettes wanneer de schrijfbe- 
scherming uit staat, dus als je door het 
gaatje in de diskette kunt kijken. Staat het 
virus op een diskette waarmee de Amiga 
wordt opgestart, dan wordt het zeker naar 
iedere diskette gekopieert die niet bevei¬ 
ligd is. 

Met dit in het achterhoofd beginnen we 
met een korte bespreking van twee pro¬ 
gramma’s die in de Amiga-wereld als ‘de 
beste’ te boek staan. 

Zerovirus 

Zerovirus is een gebruiksvriendelijk pro¬ 
gramma daar het gebruik maakt van 
menu’s. Na het starten van het program¬ 
ma controleert Zerovirus het geheugen, 
watje ook daadwerkelijk ziet gebeuren. 


Daarna komen we in het hoofdmenu te¬ 
recht. Hier kan gekozen worden tussen 
het controleren op virussen op een boot- 
sector of virussen die zich aan een file 
vastklampen, de zogenoemde ‘file-virus- 
sen’. Andere functies in het hoofdmenu 
zijn onder andere het maken van een ca¬ 
talogus van alle virussen en het verande¬ 
ren van de kleuren van het scherm. 
Kiezen we voor ‘Check disk for viruses’ 
dan komen we in een volgend menu. 
Links in beeld staan vier disdrives, die af¬ 
hankelijk van het aangesloten aantal dui¬ 
delijk of juist onduidelijk staan afgebeeld. 
Even met de muis er op klikken en de 
bootsector wordt gecontroleerd. Dat zijn 
de eerste twee sectoren (0 en 1) van een 
diskette. In deze ‘bootsector’ bevinden 
zich de meeste virussen.Als een virus 
wordt gevonden vertelt Zerovirus precies 
welke dat is en staat onderin beeld wat er 
vervolgens moet gebeuren om de diskette 
weer virusvrij te krijgen. Bij dit anti-vi- 
rusprogramma kun je de bootsectoren be¬ 
kijken. Bij Zerovirus worden de abnor¬ 
male bytes in rood aangegeven, zodat di¬ 
rect opvalt als er iets niet klopt. Wanneer 
er met de diskette niets aan de hand is, 
verschijnt de melding ‘Normal DOS- 
bootblock’. 


Moet een diskette worden geïnstalleerd, 
dan kan tussen vier soorten bootsectoren 
worden gekozen. Die worden ingesteld 
door met de muis op ‘Install Disc’ te gaan 
staan en de rechter muis-toets te drukken. 
In beeld verschijnt dan een menu met vier 
mogelijkheden: Standard, NoFastMem, 
BigScreenTest en AutoAddRAM. De 
eerste twee zijn meer bekend dan de an¬ 
dere. Standaard is een bootblock dat ver¬ 
gelijkbaar met het Install-commando van 
de WorkBench-diskette. 

NoFastMem schakelt het extra geheugen 
uit. Sommige programma’s kunnen na¬ 
melijk niet draaien met een geheugenuit- 
breiding. Iedere Amiga-gebruiker zal wel 
eens merken dat hij zijn CLI niet hele¬ 
maal niet naar beneden kan trekken. Dat 
betekent dat de Amiga op dat moment de 
NTSC-standaard ondersteunt in plaats 
van PAL (het hele beeld). Met BigS¬ 
creenTest kan na het ontdekken van de 
fout de diskette direct opnieuw geboot 
worden. 

AutoAddRam ten slotte is bedoeld voor 
geheugenuitbreidingen die niet autocon- 
figurerend zijn, dat wil zeggen, zich niet 
automatisch toevoegt aan het standaard 
geheugen. 


70 


Commodore Info 2190 
























Amigo 



Een tweede mogelijkheid van virusbe¬ 
strijding is een diskette te onderzoeken op 
file-virussen. Via hetzelfde menu wordt 
binnen Zerovirus de optie ‘File Virus 
Check’ gekozen. Daarna vertelt Zerovi¬ 
rus naar welke file-virussen hij kan zoe¬ 
ken. Vervolgens komt een menu in beeld. 
Daarin moet worden ingegeven welke fi¬ 
les op virussen moeten worden gecheckt. 
Dit laatste is in vele gevallen een luxe, 
aangezien de files-virussen lang niet op 
zo’n grote schaal voorkomen als de boot- 
block-virussen. Maar toch... 

Een aardigheidje van Zerovirus is de Tco- 
nify’-modus, waardoor het programma 
verkleint en op de menubalk bovenin de 
WorkBench komt te staan. Op het mo¬ 
ment dat een virus wordt aangetroffen, 
meldt Zerovirus dat en vraagt of het pro¬ 
gramma weer actief moet worden om het 
virus te verwijderen. 

Verder kent het programma nog een aan¬ 
tal functies, die we buiten beschouwing 
willen laten. De hier beschreven functies 
zijn namelijk voor een effectief bestrijden 
van virussen ruim voldoende. 

VirusX 

Het bekendste en waarschijnlijk ook het 
meest gebruikte programma in deze reeks 
is VirusX. Het is ook een Public-Domain 
programma en dus vrij kopieerbaar. 
Vroegere virusfinders, -killers of hoe ze 
ook allemaal worden genoemd, gingen 
pas aan de slag als daartoe opdracht werd 
gegeven. VirusX is een anti-viruspro- 
gramma van de volgende generatie. Het 
werkt is beperkte mate automatisch. 

Het verdient aanbeveling om iedere pro- 
gramma-diskette die bij een aantal data- 
diskettes hoort, een tekenprogramma bij¬ 
voorbeeld, te voorzien van VirusX. 

Het opstarten gaat simpel. Vanuit de CLI 
simpelweg ‘VirusX’ ingeven en het pro¬ 
gramma verschijnt bovenin beeld in de 
menubalk. VirusX controleert het geheu¬ 
gen, maar komt pas met een melding als 
er iets aan de hand is. Direct daarna 
checkt VirusX alle aangesloten drives (bij 
iedere Amiga tot maximaal vier) op een 
virus in het bootblock. 

VirusX vergelijkt de gegevens die erop 
staan met een standaard bootsector. Na de 
controle zijn er drie mogelijkheden. 

- er is niets aan de hand; 

- het programma vindt een ‘non-standard 
bootblock’; 

- VirusX vindt een virus. 

Bij het eerste hoeft er niets te gebeuren, 
de diskettes zijn in orde. Bij het tweede en 
derde geeft VirusX een keuze. Of je trekt 
je er niets van aan (ignore it) of je ver¬ 
vangt het bootblock door een nieuw (re- 
place it). 

Wanneer een virus is gevonden is het lo¬ 
gisch de bootsector te vervangen, want 
wie wil er nu geïnvecteerde diskettes? Bij 


de stgveede mogelijkheid moeten we toch 
wat voorzichtiger zijn. Sommige pro¬ 
gramma’s hebben namelijk op de eerste 
twee sectoren een eigen opstartfile staan. 
Dus als we die bootblocks vervangen, 
houdt dat in dat het programma niet meer 
op zal starten. In zo’n geval moetje zeker 
weten dat dat niet zo is; neem geen risi¬ 
co’s. Een bootblock dat eenmaal is over¬ 
schreven, kan niet meer terug worden ge¬ 
haald! Dit geldt natuurlijk ook voor ande¬ 
re Viruskillers, waaronder Zerovirus. 
Wanneer de muis op de VirusX-balk 
staat, dat is namelijk het enige dat je ziet 
(echt een programma op de achtergrond), 
en je drukt de rechter muistoets, dan ver¬ 
schijnt er een hele lijst met virussen. Het 
aantal verschilt met de versie die je ge¬ 
bruikt. Daarom is het ook altijd zaak de 
nieuwste versie hebt, zodat je zeker weet 
dat tegen alle virussen beschermd bent. In 
de lijst staat te lezen hoeveel schijven Vi¬ 
rusX al gecheckt heeft, hoeveel er al geïn¬ 
stalleerd zijn en hoeveel virussen het pro¬ 
gramma al gevonden heeft. 

Een andere mogelijkheid is een blik te ne¬ 
men in de bootblock. Dit gebeurt ook 
vanuit de lijst, door op ‘0’ te drukken 
voor dfO:, ‘1’ voor dfl: enzovoort tot 
df3:. Bij de wat oudere virussen, zoals 
SCA, staat daar de tekst ‘Your Amiga is 
alive’ te lezen. Bij de latere virussen is het 
heel wat moeilijker zo niet ondoenlijk vi¬ 
russen op te sporen door alleen maar de 
bootsector te lezen. 

Bij VirusX tot versie 3.2 was het zoeken 
naar file-virussen nog een probleem, om¬ 
dat het programma zelf die mogelijkheid 
niet boodt. Daarvoor werd een ander pro¬ 
gramma, ‘KV’ bijgeleverd. 

Het opstarten van VirusX kan natuurlijk 
ook gemakkelijk via de startup-sequence 
uit de ‘s’-directory en is zelfs aan te beve¬ 
len. 


Ten slotte 

Tot zover een aanzet tot het gebruik van 
deze twee zeer nuttige hulpprogramma’s. 
Zoals gezegd is het Public-Domain, wat 
inhoudt dat ze vrij kopieerbaar zijn. Ver¬ 
geet alleen niet dat bij Zerovirus ook een 
zogenoemde ‘brainfde’ hoort, waar alle 
virusnamen in opgeslagen zitten. Zonder 
die file herkent Zerovirus geen enkel vi¬ 
rus! 

W.S. 


PASOP! 

Er is een versie 3.3 van VirusX in om¬ 
loop. Dit is geen viruskiller, maar zelf 
een virus. De update van 3.2 is 4.0, en 
dus niet 3.3. Wees gewaarschuwd! 

De nieuwste versies van Zerovirus 
(2.01) en VirusX (4.0) bevinden zich 
op Fish disk 287. De hier besproken 
versies zijn respectievelijk gebaseerd 
op 1.02 en 3.2. Er kunnen dus een aan¬ 
tal verschillen zijn, maar de basis is de¬ 
zelfde. 


Commodore Info 2190 


71 


































Amiga 


Live 2000 


Een videodigitizer van formaat 


D igitizen en vervolgens het be¬ 
vroren kleurenbeeld bewer¬ 
ken is echt iets voor de artistieke 
Amiga-fan. Helaas laat de kwali¬ 
teit van digitizers nogal eens te 
wensen over met alle teleurstel¬ 
lende resultaten van dien. Geluk¬ 
kig is nu de befaamde ameri- 
kaanse Live 2000 digitizer geschikt 
gemaakt voor de PAL- norm. 
Daarmee komt (semi-)professio- 
nele kleurendigitizing binnen het 
bereik van de videohobbyist. 

Videodigitizers dienen om videobeelden 
te vangen en geschikt te maken voor ge¬ 
bruik in RGB-computer zoals de Com¬ 
modore Amiga. De gebruiker voert het 
PAL VHS-signaal in en de digitizer 
maakt er door de Amiga te bewerken bits 
en bytes van. Met behulp van paint- of vi¬ 
deosoftware kan men het gevangen beeld 
verder bewerken. Het vangen of bevrie¬ 
zen van het beeld uit de videorecorder of 
camera vormt de limiterende factor. 
Freezen kost tijd en de meeste digitizers 
zullen daarom een stilstaand beeld ver¬ 
langen en vele tientallen seconden over 
het digitaliseerproces doen. Hierin blinkt 
de Live 2000 juist uit. In zwartwit kunnen 
15 beelden en in kleur 12 beelden per se¬ 
conde gedigitaliseerd worden. 

Live digitizing 

De term "live" slaat bij de videodigitizer 
Live 2000 op de snelheid van het digitali¬ 
seerproces. Echt live kunnen we het nog 
niet noemen want een tv-signaal biedt im¬ 
mers 25 beelden per seconde aan. Toch 
komt deze digitizer daar dicht bij in de 
buurt. 

De zwartwitmodus doet een beeld van 
zestien verschillende grijstinten in 1/15 
seconde. Een 32-kleurenbeeld wordt in 
1/12 seconde gedigitaliseerd. Daarmee 
kan de Live 2000 tot de real- time digiti¬ 
zers gerekend worden. En dat voor een 
prijs van rond de ƒ 1.200,-. 


De hardware 

Het concept van de Live 2000 digitizer is 
vertrouwd. Een insteekkaart maakt via 
Direct Memory Access (DMA) recht¬ 
streeks gebruik van het beschikbare Ami- 
ga-videogeheugen. Via de vier BNC- 
bussen kan elke gangbare PAL-videobron 
worden aangesloten. Eén bus dient als in¬ 
put, een andere als output voor een extra 
controlemonitor. De beide andere BNC- 
bussen zijn bedoeld voor aansluiting van 
een tweede camera. Dat is opmerkelijk 
omdat de meeste Amiga-videodigitizers 
slechts met één videobron tegelijk kun¬ 
nen werken. 

Ook is het mogelijk om de BNC-bussen 
als RGB-ingang voor de signalen Rood, 
Groen, Blauw en Synchronisatie te ge¬ 
bruiken. Deze modus wordt hardwarema- 
tig via draadbruggen ingesteld. 

Daar de Live 2000 het Amiga-RAM ge¬ 
bruikt heeft u minimaal 1 MB en liefst 2 
MB aan vrij video-RAM nodig. Anders 
loopt het digitaliseren al snel vast. Een 
tweede vereiste is een harddisk voor vol¬ 
doende opslagcapaciteit en het snel kun¬ 
nen wegschrijven en inladen van de gedi¬ 
gitaliseerde beelden. De digitaliserings- 
software is van huis uit al geschikt voor 
installatie en het opzetten kost weinig 
moeite. 

De aansluiting van de videobronnen gaf 
weinig problemen. Alleen bleek de Live 
2000 wel gevoelig voor wankele contac¬ 
ten of het wegvallen van het videosig¬ 
naal. Dan staat er meteen "No videosignal 
present op de monitor". 

De effecten 

Videodigitizers worden gekocht om de 
speciale artwork- en video- effecten die 
daarmee te maken zijn. Bovendien kun¬ 
nen de eenmaal opgeslagen beelden in 
animaties en als programmaschermen ge¬ 
bruikt worden. Tot de mogelijke effecten 
behoren o.a.: 

• het inkleuren van zwartwitbeelden. 
Door verandering van het kleurenpa¬ 
let zijn alle 16 grijstinten afzonderlijk 
in te kleuren; 


• ook bij de in 32 kleuren of HAM- 
modus gedigitaliseerde beelden kan 
men de kleuren volgens de 4096 be¬ 
schikbare Amiga- tinten selectief ver¬ 
anderen. In de HAM-modus kan ook 
met een snelheid van vier beelden 
per seconde gedigitaliseerd worden. 
Dan valt de Live 2000 eigenlijk nau¬ 
welijks meer real-time te noemen; 

• gedigitaliseerde beelden kunnen in 
het IFF-formaat worden weggeschre¬ 
ven en zijn zo gemakkelijk verder te 
bewerken met paint-software; 

• de HAM-beelden kunnen qua scherp¬ 
te gevarieerd worden 

• diverse vervreemdingen zoals, paint- 
effect, reverse, pseudosolarisatie en 
beïnvloeding van de beeldkorrel; 

• Live 2000 kan kleine animaties opne¬ 
men, mits de Amiga over voldoende 
vrij video-RAM beschikt. 

De rest van de effecten wordt aan de fan¬ 
tasie van de gebruiker overgelaten. 

Live 2000 is een redelijk tot goede real- 
time videodigitizer en zal zijn weg naar 
de grafisch artiest en videohobbyist wel 
vinden. De prijs is gunstig. Wie betere 
kwaliteit wil zal aanzienlijk meer moeten 
betalen. 


U.S. 
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De perfecte Kickstart 

Geruchten over 1.4 


D e Amiga wordt aangezet. Na 
een enkele seconde verschijnt 
een geanimeerde diskette op het 
scherm van een drive, waarin een 
diskette wordt gestopt en weer uit¬ 
gehaald. Een nieuwe bootwriter? 
Er zit geen diskette in de drive... 
Nee, dit is het nieuwe opstartbeeld 
van Kickstart 1.4! De nieuwe versie 
heeft waarschijnlijk binnenkort zijn 
intrede, zo vernamen wij uit niet- 
officiële bronnen. Commodore 
Nederland was niet voor com¬ 
mentaar bereikbaar. 

Amiga 1000 bezitters kennen de ergernis 
van het laden van de Kickstart en daarna 
de Workbench. Bij de latere modellen 
van de Commodore Amiga, de 500 en de 
2000, werd dit euvel verholpen en de 
Kickstart in een ROM gebouwd. Het eni¬ 
ge dat daarna nog moest gebeuren, was 
het inladen van de WorkBench. 

Bij de 1000 werd nog gebruik gemaakt 
van de versies 1.0 en 1.1. De nakomelin¬ 
gen kregen een update naar Kickstart 1.2. 
Maar die hield het maar een aantal jaren 
vol, toen versie 1.3 zijn intrede deed. 
Volgens latere mededelingen zaten er een 
aantal bugs in de 1.2 ROM, die men er bij 
de nieuwe versie uit had gehaald. Dat was 
dus goed nieuws, een bug-vrije versie. 
Dat daardoor het aantal foutmeldingen in 
de vorm van een Guru minder werden, 
zou mooi zijn geweest, maar dat bleek he¬ 
laas niet het geval. 

Voordeel 

Voor de doorsnee gebruikers is er met 
versie 1.3 maar een voordeel gekomen. 
Kickstart 1.3 ondersteunt namelijk hard¬ 
disks die autobootable zijn, zodat de ma¬ 
chine direct naar een aangesloten hard¬ 
disk kijkt en daarvan opstart. 

De nieuwe Kickstart ging vergezeld van 
een bijpassende WorkBench met dezelf¬ 
de soort Utilities als bij WorkBench 1.2, 
maar veel sterk verbeterde ‘c’-comman- 
do’s. Kopers van een Amiga met Kick¬ 
start 1.3 bleken helemaal niet zo in hun 
sas met de bug-vrije ROM. Zij die nog 1.2 


gebruikten, konden zonder problemen 
WorkBench 1.3 draaien en zo ook voor¬ 
deel trekken van de nieuwe versie. Welis¬ 
waar konden 1,3-gebruikers harddisk 
automatisch laten opstarten, maar sommi¬ 
ge leveranciers kregen dit ook met de ou¬ 
dere Kickstart 1.2 voor elkaar. 

Het werd nog zotter toen bleek dat een 
aantal programma’s niet meer draaide on¬ 
der 1.3 die dat onder 1.2 nog wel hadden 
gedaan. Terwille van hen die een nieuwe 
Amiga hadden gekocht met Kickstart 1.3 
verzonnen een aantal fabrikanten de zo¬ 
genoemde omschakelaars, waarin een 
1.2- en een 1.3-ROM een plaats kregen, 
zodat tussen beide geschakeld kon wor¬ 
den. Bezitters van een dergelijk apparaat¬ 
je hebben in de praktijk hun Amiga meer 
in de 1.2-stand staan dan in de 1.3, nota- 
bene de originele ROM! 

Kickstart 1.4 

Maar nu komt er voor iedereen een sterk 
verbeterde Kickstart, die een einde moet 
maken aan alle problemen rond deze sys- 
teem-ROM: Kickstart 1.4. Volgens de be¬ 
richten zal er in maart tijdens de Ccbit in 
Hannover weer een tipje van de sluier 
worden opgelicht. Maar nu eerst wat er al 
bekend is van Kickstart 1.4, althans vol¬ 
gens de geruchten. 

De meest in het oog springende verande¬ 
ring is het opstartscherm waarop nu een 
drive te zien is, waarin een diskette ge¬ 
stopt wordt en er vervolgens weer uit 
komt. Na het opstarten van de, eveneens 
nieuwe, WorkBench 1.4-diskette en het 
laden van de daadwerkelijke WorkBench 
valt op dat het niet langer als beeld¬ 
scherm, maar als een window wordt voor¬ 
gesteld. De WorkBench kan dus net als 
andere vensters worden vergroot ofwel 
verkleind worden. 

111 

Na een dubbele klik op een disk-ikoon 
wordt het disk-window geopend. De 
muis, die bij de huidige versies verandert 
in een slapende wolk (ZZZ), blijft ge¬ 
woon een pijl waarmee alweer een vol¬ 
gende diskette kan worden geopend. Ook 
lades die in deze vensters zichtbaar wor¬ 


den kunnen direct met pijlaanwijzer wor¬ 
den geopend. Onder Kickstart 1.4 hoeft 
wachten dus niet meer. En wat voor het 
openen van de Windows geldt, geldt na¬ 
tuurlijk ook voor het sluiten. Program¬ 
ma’s en files die officieel geen ikoon heb¬ 
ben, krijgen er een toegewezen door de 
nieuwe Kickstart. 

Het scherm van de WorkBench heeft bo¬ 
ven in de menu-regel een klok en ver¬ 
meldt daar ook de stand van het geheu¬ 
gen. Verder verdwijnt bij 1.4 in het dis- 
kette-window de balk, die aangeeft hoe¬ 
veel ruimte er nog op de schijf aanwezig 
is. In plaats daarvan staat er naast de 
naam bovenin het venster de ruimte in 
procenten en kilobyte. 

Het is de bedoeling dat de gevreesde 
Guru-meldingen bij Kickstart 1.4 zijn 
verdwenen. Dat houdt niet in dat er geen 
foutmeldingen zullen voorkomen. Die 
worden bij 1.4 aangegeven in de bekende 
requesters. 

Incompatible 

De compatibiliteit ten opzichte van 1.2 en 
1.3 schijnt nog tegen te vallen. In Duits¬ 
land is de nieuwe versie getest en volgens 
de technici is de incompatibiliteit met 
versie 1.4 alleen maar vergroot. 

Wanneer de chip naar Nederland komt is 
niet met zekerheid te zeggen. Wel staat 
vast dat hij komt en net zo simpel te ver¬ 
vangen is als de huidige ROM’s. 

In hoeverre de geruchten met de waarheid 
overeenkomen, hopen we binnenkort te 
melden. 

W.S. 


Pre-view 

Als je al vast een voorproefje wilt ne¬ 
men van de nieuwe Kickstart moet je 
de ‘Jazzbench’ eens proberen van Fish 
disk 228. Dat is een nieuwe, experi¬ 
mentele, WorkBench die veel doet 
denken aan de in dit artikel beschreven 
nieuwe 1.4. 
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Hama 

Meer dan alleen e< 



G enlocks zijn een onmisbaar in¬ 
strument voor de videomaker 
die het Amiga videosignaal met 
een camera- of videorecordersig- 
naal wil combineren. Het gen- 
lock-interface zorgt ervoor dat 
alle beeldinformatie uit de beide 
inputs bij de output op de juiste tijd 
en plaats belandt. Tijdens de com¬ 
binatie van het computer en ca¬ 
mera- of recordersignaal zijn nog 
tal van bewerkingen mogelijk. Bij¬ 
voorbeeld correctie van helder¬ 
heid, kleur of contrast en fade- in 
of fade-out.. Daar blijft het vaak 
niet bij want de fabrikant voorziet 
zijn genlock vaak van nog iets ex¬ 
tra’s. Bijvoorbeeld een geïnte¬ 
greerde RGB-splitter of inge¬ 
bouwde videoprocessor. Daar¬ 
mee wordt de Commodore Ami¬ 
ga plus videosoftware al gauw 
een kleine montagestudio.Gen- 
locks voor Amiga zijn er te kust en 
te keur. Er is keuze uit diverse prijs¬ 
klassen, losse of gecombineerde 
genlocks en verschillende kwali¬ 
teiten. De hier besproken Hama S- 
590 Genlock is een apparaat dat 
duidelijk boven de middelmaat 
uitsteekt. S-VHS- en Hi-8-kwaliteit, 
combinatie met een RGB-splitter, 
videosignaalprocessor en deco¬ 
der voor kopieerbeschermning 
maken deze genlock een aan¬ 
trekkelijke middenklasser van 
rond de ƒ 1.400,- 

Beeldkwaliteit 

De Hama S-590 wil direct hoge ogen 
gooien en mikt met compatibiliteit voor 
Super-VHS en Hi-8 op de maximum 
beeldkwaliteit die in het semi-professio- 
nele kanaal haalbaar is. Natuurlijk moet u 
daar geen wonderen van verwachten. De 
bandbreedte van het RGB-kleurensignaal 
op de Amiga is ruim 6 maal groter als bij 
S-VHS of Hi-8. Er zal dus altijd een ach¬ 


teruitgang zichtbaar blijven. Niettemin 
doet het gecombineerde genlock output- 
signaal niet onder voor de consumenten¬ 
kwaliteit van S-VHS of Hi-8 video. Ge¬ 
woon goed bruikbaar in de gevorderde 
hobby- of semiprofessionele sector. 
Behalve de pure genlock-activiteiten doet 
de Hama S-590 nog veel meer. In de eer¬ 
ste plaats is het interface een prima sig- 
naalconverter. Behalve RGB naar Y/C 
kan de electronica ook Y/C-signalen naar 
een RGB-SCART monitor omzetten. De 
beeldkwaliteit is dan net iets minder dan 
bij puur S-VHS of Hi-8 maar nog wel 
aanmerkelijk beter dan bij composiet vi¬ 
deo. 

De RGB-splitterfunctie is makkelijk bij 
het digitaliseren van kleurenbeelden met 
bijvoorbeeld DigiView. Geen onhandig 


geklungel meer met gecombineerde op¬ 
namen door drie verschillende kleurenfil- 
ters. Nu kan alles direct in één keer wor¬ 
den opgenomen. 

Als laatste extra een iets minder nette toe¬ 
passing. De S-590 kan gebruikt worden 
om de kopieerbescherming van videoban¬ 
den te verwijderen. Alleen voor eigen ge¬ 
bruik dus en niet voor het grijze of zwarte 
kopieercircuit. 

De aansluiting 

Het aansluiten van een genlock is altijd 
een werkje van goed de gebruiksaanwij¬ 
zing lezen en de juiste kabeltjes aanschaf¬ 
fen. Doet u dat niet dan gebeurt er niet 
wat u wilt of vallen de resultaten bar te¬ 
gen. 
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Let daarom op de volgende zaken: 

• om welke videostandaard gaat het? 
Gewoon VHS of Y/C S- VHS res¬ 
pectievelijk Hi-8? Elk vergt zo zijn 
eigen bekabeling; 

• welke richting gaat het signaal uit? 
Sommige goedkopere kabeltjes wer¬ 
ken slechts in één richting (d.w.z. 
weergave of opname) en kunnen dan 
ook uitsluitend voor dat doel gebruikt 
worden. Onvolledige bekabeling is 
een beruchte oorzaak van geen sig¬ 
naal of alleen een zwartwitsignaal; 

• het type Amiga. De S-590 werkt met 
de modellen 500, 1000 en 2000; 

• verwijder en plaats alleen kabeltjes 
met de Amiga op uit!; 

• gebruik nooit de RF-uitgang van de 
video-apparatuur. 

De S-590 kiest zelf voor het beste beeld- 
signaal. Sluit u bijvoorbeeld zowel een 
gewone Video-in als S-VHS-in tegelijk 
aan dan kiest het interface in zijn grote 
wijsheid voor het betere S-VHS beeldsig- 
naal. Verder verdient het natuurlijk altijd 
aanbeveling om de aansluitingen voor het 
gebruik nogmaals te controleren. 

De genlock zelf 

De Hama S-590 zit in een mooi compact 
rechthoekig plastic & metalen doosje. 
Gezien de vorm kunt u de genlock alleen 
naast de Amiga zetten waarbij alle regel- 
laars aan de voorzijde goed bereikbaar 
zijn. De voeding bestaat uit een losse 
eenheid. Dat spaart de Amiga-trafo, maar 
geeft weer een extra kastje, snoertje en 
stekker op het bureau. 

De FADER-regelaar verzorgt de aard 
van superimpose, d.w.z. de manier waar¬ 
op het ene beeld zichtbaar over het ande¬ 
re wordt heengelegd. In de meest linkse 
positie werken de faders op de computer 
graphics. In de meest rechtse positie 
wordt er van computer graphics naar vi¬ 
deo en omgekeerd een fade uitgevoerd. 
N.B.: Een Fade-in gaat van donker naar 
licht en een Fade-out van licht naar don¬ 
ker. 

De Mode-controller heeft alleen een 
functie in de meest rechtse positie. Name¬ 
lijk de superimpose van een videobeeld. 
Zie verder de FADER. 

De INVERTER kent twee posities. Naar 
beneden zet het videobeeld in de achter- 
grondkleur van de computer graphics. In 
de op-positie verschijnt het videobeeld in 
de voorgrondkleur. Het behoeft verder 
geen betoog dat de kleurstelling hier 
nauw luistert om een zo optimaal moge¬ 
lijk resultaat te verkrijgen. 

De beeldbewerking zelf bestaat uit drie 
regelaars voor: 


• het kontrast; 

• de helderheid; 

• de kleur. 

Verder is er een RGB-schakelaar voor 
kleur-digitizing aan de monochrome out¬ 
put. 

Genlockbeeldkwaliteit en 
-mogelijkheden 

Iedereen die voor het eerst een genlock 
aansluit wacht een flinke teleurstelling. 
Het prachtige Amiga RGB-beeld wordt 
gedegradeerd tot een slap video-aftreksel. 
Dat is hoogstens ten dele de schuld van de 
genlock. Het verschil tussen 10 MHz 
bandbreedte op de RGB- monitor en de 
1.5 MHz van de PAL-videostandaard is 
domweg te groot. 

Bij een gescheiden Y/C-signaal (S-VHS 
en Hi-8) zijn de verliezen qua beeld- 
scherpte duidelijk minder dan bij gewoon 
VHS of 8mm- video. Bij pure sterk con¬ 
trasterende kleuren ontstaat echter toch 
een onrustig beeld. Ook kunnen te fijne 
beelddetails verloren gaan. Denk daaraan 
bij de opname en het ontwerpen van de 
computer graphics. Dat bespaart veel on¬ 
nodige frustratie. 

Tijdens onze test viel op de beeldkwaliteit 
weinig aan te merken. Midden- tot semi- 
professionele klasse. Wie meer wil komt 
fors duurder uit. 

Over de effectmogelijkheden willen we 
kort zijn. Die bestaan uit aftiteling, com¬ 
binatie van computertekeningen of ani¬ 
maties met live-video, sleutelgateffect en 
nachtsimulatie plus wat u zelf nog aan 
creatieve toepassingen te binnen schiet. 

RGB-splitter 

Voor het werken met digitizers zoals 
Digi-View gold en De-Luxe- View is een 
ingebouwde RGB-splitter een heel ge¬ 
mak. In plaats van kleurenbeelden met 
een zwartwit camera door drie filters heen 
afzonderlijk op te nemen kan nu alles in 
één keer met een kleurenacmera. De geïn¬ 


tegreerde RGB-splitter splitst het aange¬ 
boden videosignaal in de drie basis-kleu- 
ren Rood, Groen en Blauw. Via de RGB- 
schakelaar stelt u de te digitaliseren kleur 
in. De digitizer met software doet de rest. 
N.B.: In de praktijk zal enig experimen- 
teerwerk nodig zijn om kleurzwemen e.d. 
te leren elimineren. 

De aansluiting is eenvoudig tulp naar tulp 
vanuit de S-590 naar de digitizer-in-bus. 
Met behulp van de FADE-knop is het mo¬ 
gelijk om het gedigitaliseerde beeld met 
het origineel te vergelijken. 

Overige toepassingen 

De S-590 is geschikt als S-VHS (Y/C) 
naar RGB-converter. Ondanks het feit 
dat S-VHS alweer twee jaar bestaat ont¬ 
beren nog tal van tv-sets een geschikte 
aansluiting. Het S-590 is in staat om het 
Y/C-signaal zonder al te veel kwaliteits¬ 
verlies in een RGB- monitorsignaal om te 
zetten. U sluit de videobron aan op de S- 
590 en verbindt de genlock via een 
SCART-kabeltje met de tv of monitor. 
Het beeld geeft een duidelijke verbetering 
ten opzichte van het standaard VHS-vi- 
deosignaal te zien. Dit alles uiteraard bin¬ 
nen de mogelijkheden van de PAL-norm 
en iets beneden de echte S-VHS- of Hi-8- 
kwaliteit. 

Het gebruik als decorder voor bescherm¬ 
de videobanden is uiteraard discutabel. 
Soms kan zoiets handig zijn als u van een 
zelf gekochte videoband een veiligheids- 
kopie wilt maken. 

De S-590 bevestigt de trend naar meer ge¬ 
ïntegreerde semi- professionele video¬ 
software voor de Commodore Amiga. 
Gevorderde hobbyisten en low-budget 
semi-professionele gebruikers zullen die 
ƒ 1.400,- er best voor over hebben. Voor 
dat geld wordt de Amiga een leuke speci- 
al-effect-en aftitelingsstudio. Info: 

Fotec tel.: 05280-62134, Holst Foto 
tel.: 02290-15241. 

U.S. 
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Amigo 


Nordic Power 


Eerste Amigo Action Cartridge 


D e Powercartridge voor de 
Commodore 64 is alom be¬ 
kend. Minder bekend, maar toch 
wei veel gebruikt is de Expert-car- 
tridge. Met beide is het mogelijk 
om programma’s die zich in het 
geheugen van de computer be¬ 
vinden, naar diskettes te schrijven. 
Ook spellen die met kopieerpro- 
gramma’s niet te kraken zijn, wor¬ 
den met deze cartridges zonder 
moeite gesaved. 

Uit eigen land komt nu een dergelijke car¬ 
tridge voor de Amiga, en wel de Nordic 
Power, van Data & Electronics uit Venlo. 
De Nordic Power freezed, maakt screen- 
dumps, kent verschillende DOS- 
commando’s, heeft een ingebouwde ma¬ 
chinetaal monitor, is voorzien van een 
doorgevoerde expansiepoort en, last but 
not least, heeft hij een vertrager die pro¬ 
gramma’s langzamer kan laten lopen. 
Veel functies die we graag eens wilden 
uitproberen. 

De Nordic Power is leverbaar in drie ver¬ 
schillende versies: voor de 500, de 1000 
en de 2000. Verder is er een uitgebreide 
‘sc’- en een minder uitgebreide ‘lc’-ver¬ 
sie. Een positief punt is, dat men de twee¬ 
de groep niet is vergeten, aangezien er 
nauwelijks hardwareprodukten voor de 
Amiga 1000 verschijnen. Wij testten de 
500 sc-versie. 

De Nordic Power is een klein kastje dat 
aan de DMA- of expansiepoort van de 
computer wordt aangesloten. Eventuele 
andere apparaten, zoals harddisk, kunnen 
aan de andere kant van de cartridge wor¬ 
den aangekoppeld. De handleiding ver¬ 
meldt dat niet alle controllers compatible 
zijn. Verder werkt een Amiga met de 
nieuwe Fat Agnus chip niet in de PAL- 
modus. 

Achterop de cartridge zitten twee knop¬ 
pen: een is een draaiknop van de vertrager 
en de ander is de freeze-knop. 
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Dit beeld uit PageStream werd met Nordic gefreezed en later met 

DeLuxePaint bewerkt en uitgeprint 


Vertrager 

De vertrager kan handig zijn bij spellen 
die veel te snel gaan om goed bij te kun¬ 
nen houden. Dat geldt bijvoorbeeld ook 
voor demo’s die beter bekeken moeten 
worden. 

Bij sommige programma’s lijkt het of de 
vertrager niet werkt, maar dan komt hij 
pas helemaal op het eind in actie. Het ligt 
er namelijk aan welk programma ge¬ 
draaid wordt, zo staat ook in de handlei¬ 
ding te lezen. Het ligt er al net aan hoe de 
routines bij een programma zijn opge¬ 
bouwd, en hoe de Amiga die afwerkt. Bij 
de programma’s die wij uitprobeerden, 
reageerde de vertrager steeds laat, maar 
wel correct. 

Freezer 

Zodra de freezer-knop wordt ingedrukt, 
wordt de vertrager uitgeschakeld om het 
geheugen niet te beschadigen. De freezer- 
knop doet denken aan die van de Power¬ 
cartridge voor de C-64. Een druk op de 
knop en er verschijnt een grijs menu in de 
bovenste helft van een, op dat moment. 


zwart beeld. De Nordic Power werkt con¬ 
stant in het grijze gedeelte van het 
scherm. 

De freezer-knop is weliswaar voor het 
freezen, maar kan veel meer. Het menu 
geeft een overzicht van de functie-toet- 
sen: 

F1 - Freeze 

F2 - Geluid 

F3 - Grafisch 

F4 - Utilities 

F5 - Monitor 

F6 - Instellingen 

F7 - Herstart 

F8 - Clear en reset 

F9 - Reboot 

F10 - Verlaat submenu 

Allereerst nemen we een duik in het 
freeze-menu. Dat is bedoeld om het ge¬ 
heugen op een of meerdere diskettes te 
bewaren. Daarbij is het belangrijk of er 
met een 512 KB of een 1 MB Amiga 
wordt gewerkt. Zoals bekend kan er op 
een diskette 880 KB. Dat houdt in dat 1 
MB niet op een diskette past. 
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NORDIC POWER. 

FIRST AM IGA ACTION CARTRIDGE VI .8.1 SP 
COPYRIGHT 1989/90 GAMBIT DEVS., MANUFACTURED BY 
DATA & ELECTRONICS, P.O. BOX 3119, NL-5902RC VENLO 


F1 ., 

.. FREEZER 

F3 

,. SOUND 

F5 .. 

.. MONITOR 

F7 .. 

.RESTART 

F9 .. 

. REBOOT 


Als je dus wilt freezen en je hebt 1 MB 
geheugen, heb je voor het freezen altijd 
twee diskettes nodig. Data & Electronics 
beveelt daarom gebruikers van een inter¬ 
ne geheugenuitbreiding aan, die uitscha- 
kelbaar te maken. Als je tenminste pro¬ 
gramma’s wilt freezen die op een 512 KB 


F2 ... GRAPHICS 
F4 ... DISK-TOOLS 
F6 ... PREFERENCES 
F8 ... RESET AND CLEAR 
F10...EXIT SUB-MENUES 


machine passen. 

Als de F1-toets gedrukt is, verschijnt er 
een menu, waarin kan worden gekozen 
tussen saven en laden van 512 KB of 1 
MB. 

Het saven gebeurt probleemloos en duurt 
minder dan 1 minuut voor 512 KB. Voor 


1 MB geldt een langere duur. Het laden 
gaat nog sneller. Wanneer een program¬ 
ma eenmaal weer in het geheugen zit, kan 
je met F7 weer verder werken in het pro¬ 
gramma, precies waar je op het moment 
van saven was gebleven. Bij het weer in¬ 
laden van het programma heb je perse de 
cartridge nodig. Meenemen naar elders en 
daar weer opstarten zonder de Nordic Po¬ 
wer gaat helaas niet. 

De handleiding spreekt niet over meer 
dan 1 MB. Vuistregel die hierbij moet 
worden aangehouden, is: hoe groter het 
geheugen, hoe meer diskettes er nodig 
zijn. 

Geluid 

Sommige programma’s, maar vooral ook 
demo’s, maken gebruik van geluid. De 
Nordic Power maakt het mogelijk die 
samples in het geheugen op te zoeken, 
naar een diskette te saven, en weer in een 
muziekprogramma op te vragen. Dat 
wegschrijven gebeurt in het welbekende 
IFF-formaat. 

Nadat de F3-functietoets is gedrukt, ver¬ 
schijnt er bovenin beeld een lijn van links 
naar rechts, met daartussen een groot aan¬ 
tal pieken. Dat is de informatie over het 
geluid die de computer in zijn geheugen 
heeft staan. Daar kunnen ook bitplanes 
van tekeningen tussen zitten. Om te con- 


PROGRAMMING BY M.ROM AND Z.NINE 

Een overzicht van de functie-toetsen in Nordic Power 


COURBOIS 

SOFTWARE 

FAZANTLAAN 61-63 6641 XW BEUNINGEN 

TEL : 08897-72546 POSTBANK : 43.03.695 


****** SOFTWARE VOOR ALLE AMIGA'S ****** SOFTWARE VOOR ALLE AMIGA'S ****** 


Star Trek 

Bootsektorprogramma's 

Rekenboek 
Rad van Fortuin 

Type Cursus 

Wirrel Warrel Puzzel 
Topografie Europa 

DeskTop Publisher 

Label Designer 

Font Designer 

Werken met AmigaBasic 

AmigaBasic II 

Adressen Bestand 

Topografie Nederland 
Werken in de CLI 
CLI II 

Onderwijs Diskettes 
Kleurboek 
Werken met PD 
PD-Games Serie 

Font Diskettes 
Kaart Spelen 
Virus Killer 

Klaverjassen 


- Voer als kommandant van een ruimteschip een aantal 
opdrachten uit. 

- Een aantal teksten en programma's om demo's in de 
bootsektor van een diskette te zetten. 

- Vier rekenprogramma's voor de basisschool. 

- Een woordenspel voor 1 tot 3 spelers. Met erg veel 
woorden. 

- Een type-cursus en een snel-type-spel op 1 
diskette. Met veel woorden en lessen. 

- Puzzelspel voor kinderen. 

- Leer de steden, rivieren, bergen en zeeën van 
Europa. Met 12 verschillende landkaarten. 

- Maak uw eigen krant met dit programma. Vreemde 
Karaktersets en plaatjes kunt u inlezen. 

- Maak etiketten voor uw diskettes. Kompleet met een 
aantal tekeningen en karaktersets. 

- Maak uw eigen karaktersets die u ook in andere 
programma's kunt gebruiken. 

- Een cursus voor beginners en gevorderden. Met veel 
voorbeelden en lees-teksten. 

- Vervolg van Werken met AmigaBasic, voor gevorder¬ 
den. 

- Een bestandsprogramma met sorteer- en afdruk- 
mogelijkheid voor lijsten en etiketten. Met snel 
zoeksysteem. 

- Leer de steden, rivieren en gebieden van 
Nederland. Met 12 verschillende landkaarten. 

- Uitleg van alle CLI-kommando's. Met veel teksten 
en voorbeelden. 

- Meer dan 50 nieuwe CLI-kommando's met uitleg. 

- 4 Verschillende diskettes met elk een aantal 
programma's gericht op het basis-onderwijs. 

- Meer dan 30 plaatjes die u op de computer kunt 
inkleuren. Erg leuk voor kinderen. 

- Een cursus omgaan met Public Domain Software. Met 
teksten en voorbeelden. 

- Tien verschillende diskettes met op elk een aantal 
spelen uit het Public Domain. Inclusief 
Nederlandse uitleg op papier. 

- Drie verschillende diskettes met op elke diskette 
60 verschillende karaktersets. 

- Drie verschillende kaartspelen op 1 diskette om 
tegen de computer te spelen. 

- Uitleg over wat virussen zijn en hoe u deze uit de 
computer houdt. Met een aantal opspoor- en 
vernietig-programma. 

Grafisch kaartspel voor 1 speler tegen de Amiga. 


****** VERDER OOK LEVERBAAR ****** ***** HARDWARE ***** HARDWARE ***** 


Galaxians - Boulder Dash 
Leg Puzzel - Memory Master 
Prg. Bestand - Mini Loco 1-2-3 
Electro - PrinterTekening 

Etiket Maker - Platen Bestand 
Scrabble - DTP Plaatjes 
Find the Way - GameDisk 1-2-3 
Lunar Escape - Picture Boot 
Puzzle Mania - Razzle Dazzle 


Sound Digitizer 

Inclusief software, werkt met bijna 
alle andere programma's. 

Prijs : 99 gulden . 

Kickstart Omschakelprint 

Hierin kunnen 3 kickstarts. Inbouw 

zonder solderen. Prijs : 75 gulden . 


Alle Amiga software is voorzien 
van een handleiding in de 
Nederlandse taal en kost slechts 
15 gulden per diskette. 

Stofhoezen voor de Amiga 500 en 
Amiga 2000 al vanaf 15 gulden . 

Etiketten voor 3.5"- en 5.25"- 
diskettes. Vanaf 3 gulden . 


Bootselector DF0:-DFl:, DF2:, DF3: 
Maak ook uw externe diskdrive boot- 
baar. Zonder solderen, eenvoudig te 
monteren. Prijs : 25 gulden . 

Diskdrives 

3.5" diskdrive .... 349 gul d en - 
5.25" diskdrive .... 399 ..gu ld en. 
5.25" + trackdisplay . 449 gulden . 
Alle drives zijn doorgelusd en de 
5.25" drives zijn omschakelbaar 
tussen 40 en 80 tracks. 


Diskettebakken in alle formaten 
voor alle typen diskettes, met of 
zonder slot al leverbaar vanaf 
5 gulden . 

Public Domain Overzicht 
Een overzicht op 3 diskettes van 
meer dan 2200 verschillende Public 
Domain diskettes. 


Geheugenuitbreiding Amiga 500 
Een interne geheugenuitbreiding met 
klok en batterij. 

prijs : 299 gulden- 

Eprommer 

Hiermee kunt u alle gangbare typen 
eproms programmeren. Met software. 



Prijs : 

15 gulden. 

Prijs 

27? gulden- 

Public Domain Diskettes 


Joysticks 


Meer dan 

2200 diskettes 

uit o.a. 



de volgende series: 


Suzo Arcade . 

. 45 cmlden. 




Competition Pro . . . 

• Aft..galden- 

- Fish 

- Kickstart - 

RHS 

Quickshot I . 

. 1.Q. gulden- 

- ACS 

- Taifun 

Tornado 

Quickshot II . 

• 18 gulden- 

- RPD 

- Araicus 

Muziek 

Quickshot II Turbo . . 

. 25_gu.ld.en ■ 

- Auge 

- Antares 

TBAG 

Joystick kabel .... 

. 8 gulden. 

- Kiss 

- Bordellos - 

Safe 



- Franz 

- Panorama 

Intro's 

Natuurlijk leveren wij 

ook : 

- RMS 

- CD Player - 

Cactus 




1 - 9 diskettes 7 gulden p.st. 
10 - 49 diskettes 6 gulden p.st. 
50 - diskettes 5 gulden p.st. 

Public Domain aanbieding 

De laatste nieuwe diskettes uit 
de Fred Fish serie voor slechts 
39 gulden . U kunt kiezen uit de 
volgende paketten : 

Fish 271-280 Fish 281-290 
Fish 291-300 Fish 301-310 


- Diskettes 

- Muismatten 

- Joysticks 

- Harddisks 

- Geheugens 

- Bakken 


- Stofkappen 

- Tijdschriften 

- Midi-interface 

- Handy Scanner 

- Kabels 

- Track Display 


Ook hebben wij VEEL software voor : 


Commodore 64-, Commodore 128-, 
Commodore C16-, Atari- en MSX- 
computers. 


Alle prijzen exclusief verzendkosten. 

Bel voor een GRATIS catalogus : 08897-72546 
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troleren waar de geluiden zich bevinden 
moet de P(lay)-toets worden gedrukt. De 
computer speelt alle geluiden achter el¬ 
kaar af. Nu is het zaak even globaal te 
onthouden waar de gewenste geluiden 
zicht bevinden. Daarna moet het begin- 
en eindpunt van de sample worden aange¬ 
geven en eventueel de snelheid aange¬ 
past, de S(ave)-toets gedrukt en de sam¬ 
ple staat op de diskette voor eventuele 
verdere verwerking. 

Bij een nieuwe demo van NewTek (van 
o.a. DigiPaint III) die we probeerden, za¬ 
ten diverse geluiden, die zonder proble¬ 
men door de Nordic werden gevonden en 
naar een diskette geschreven. Opvragem 
in Eagis Sonix lukte ook. 

Screendumps 

Een heel andere, maar vaak gebruikte 
mogelijkheid is het wegschrijven of uit¬ 
printen van schermbeelden. De Nordic 
kan dat ook. Alllereerst moet een geschikt 
schermbeeld worden gezocht. Nadat dan 
de F3-toets is gedrukt, verschijnt er infor¬ 
matie over het beeldscherm. Het beeld 
ziet er daarna enigszins verwart uit. We 
volgden bij deze functie de gebruiksaan¬ 
wijzing op de voet. Maar het viel lang niet 
mee. 

In principe werkt deze functie hetzelfde 
als die van het geluid, met het verschil, 
dat de Nordic niet alle plaatjes tegelijk 
kan laten zien, wat bij het geluid wèl in 
één keer mogelijk was. Bij deze functie 
houdt dat in, dat er in het geheugen ge¬ 
zocht moet worden. Daarvoor wordt ge¬ 
bruikt gemaakt van de toetsen 1 t/m 8, 
waaronder het plaatje kan zitten. 

Omdat het menu van Nordic Power zelf 
ook een plaatje is, kan dat eventueel sto¬ 
ren op het scherm. Om dat te kunnen on¬ 
dervangen, kunnen de toetsen 1 t/m 7 van 
het nummerieke keypad worden gebruikt. 
Verder kunnen de verschillende resolu¬ 
ties worden ingeschakeld: lo-res, hi-res, 
hold & modify, interlace en doublé play- 
field. 

Bij een aantal programma’s probeerden 
we deze functie uit, wat in sommige ge¬ 
vallen in een hopeloos drukken van toet¬ 
sen resulteerde. Daarbij ontdekten we dat 
de NTSC-modus niet direct door Nordic 
wordt ondersteund. Programma’s die in 
deze modus werkten (in plaats van PAL) 
gebruiken een gedeelte onderaan het 
scherm niet. De Nordic gebruikt wel het 
hele scherm, waardoor het freezen van 
beelden wel lukte, maar waar onderaan 
het scherm een wir-war van kleuren en 
lijnen verscheen, afhankelijk van het 
plaatje. Nordic laat wel toe dit te verande¬ 
ren, door die plek zwart te maken. Tot zo¬ 
ver geen problemen. Bij deze functie 
dook wel een paar maal een guru op. 

De hardcopies werkten perfect en werden 
in grijstinten weergegeven. Zoals altijd 


was het afhankelijk van de kleuren of de 
afdrukken duidelijk waren. Rood op een 
donkere ondergrond bijvoorbeeld, komt 
op een af druk met grijstinten niet duide¬ 
lijk over. De rode letters zijn onleesbaar. 

DOS-utilities 

Eigenlijk kan het bovenstaande niet wor¬ 
den besproken zonder eerst onder F4 te 
hebben gekeken. Voor het saven van ge¬ 
luid en plaatjes moet namelijk worden 
aangegeven waar de plaatjes en het geluid 
naar toe moeten. 

Onder F4 bevinden zich een aantal DOS- 
commando’s: dir, path, makedir, delete 
(remove), format en backup. Bij format 
maakt de Nordic Power onderscheid tus¬ 
sen Hard en Soft. Hard Format wordt ge¬ 
bruikt bij diskettes die niet eerder werden 
geformatteerd of onder een ander opera- 
ting systeem werden gebruikt. Soft For¬ 
mat overschrijft alleen de directory, en is 
daarom bedoeld voor reeds geformatteer¬ 
de diskettes onder AmigaDOS. 

De andere functies spreken voor zich, al¬ 
leen path behoeft nadere uitleg. Hiermee 
moet namelijk ook worden bepaald waar 
Nordic de geluiden en de plaatjes saved. 
Wordt dit niet ingegeven, dan zoekt de 
cartridge altijd op dfO:. 

Monitor 

De monitor van Nordic Power werkt per¬ 
fect. Alle geheugenadressen zijn bereik¬ 
baar en te veranderen. Zoeken naar be¬ 
paalde registers levert geen enkel pro¬ 
bleem op. Het enige nadeel is het kleine 
grijze scherm, waarmee Nordic werkt. 
Hierdoor zijn per keer maar een aantal 
adressen zichtbaar. Voor de overzichte¬ 
lijkheid zouden er dit best wat meer mo¬ 
gen zijn. 

Overig 

Onder F6 zitten een aantal voorkeurin- 
stellingen, zoals de keyboard-layout. F7 
is bedoeld om na een freeze, een pro¬ 
gramma weer verder te laten lopen. Deze 
toets probeerden we meerdere malen uit. 
In een paar gevallen bleef de drive han¬ 
gen en daarmee het programma. Dat lag 
waarschijnlijk aan het snel achter elkaar 
stoppen (freezen) van het programma, 
terwijl de diskette steeds weer een stukje 
bijlaadde. 

F8 en F9 liggen in eikaars verlengde. De 
eerste maakt het geheugen leeg en start de 
Amiga opnieuw op. De tweede doet in 
feite hetzelfde, maar initialiseert de Nor¬ 
dic Power ook. F10 spreekt voor zich. 

Handleiding 

De gebruikaanwijzing die wordt meege¬ 
leverd, is niet veel groter dan de cartidge 
zelf. De letter is daardoor ook niet erg 
groot uitgevoerd, waardoor je wel moeite 


moet doen om het te lezen. Verder is er op 
nacontrole van de tekst duidelijk bezui¬ 
nigd, de handleiding stikt namelijk van de 
taalfouten. 

Ondanks deze negatieve punten staan alle 
functies ruim beschreven. Bij het grafi¬ 
sche gedeelte bijvoorbeeld, wordt eerst 
uit de doeken gedaan, hoe de opbouw van 
het beeldscherm er uit ziet en de structuur 
van de IFF-plaatjes. 

Ten slotte 

Waarom de Nordic Power de eerste Ac- 
tion-cartridge genoemd wordt, is niet ge¬ 
heel duidelijk. Wel is duidelijk dat in Ne¬ 
derland heel serieus wordt nagedacht 
over de Amiga met deze eerste Neder¬ 
landse cartridge. De Nordic heeft een 
aantal nuttige functies in zich, die voor 
een aantal gebruikers heel interessant 
kunnen zijn. Vooral de sample-functie 
komt erg goed uit de verf. De screen- 
dump-functie kan nog iets vereenvoudigd 
worden, wil deze zonder problemen ook 
door beginners worden bediend. Maar 
heb je ook dit onderdeel eenmaal onder 
de knie, is bevriezen van ieder willekeu¬ 
rig beeld geen enkel probleem meer. 

Het freezen van programma’s zal waar¬ 
schijnlijk maar door weinigen worden ge¬ 
bruikt, omdat functioneren zonder de car¬ 
tridge niet mogelijk is. Vooral gebruikers 
van 1 MB ondervinden het bezwaar van 
twee diskettes, om over meer RAM maar 
te zwijgen. 

Het concept is prima en hopelijk gaat 
Data & Electronics verder met de ontwik¬ 
keling van deze soort hardware, waaraan, 
zo lijkt het althans, niemand nog gedacht 
heeft. 

W. S. 


De Nordic Power is te bestellen bij Catro- 
nix postorders voor een prijs van f 299,-. 
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